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EDITIONS 


Nous approfondissons dans ce chapitre quelques instructions de l'ORIC-1. 


PRINT TAB () : 


PRINT TAB() présente deux anomalies : 
Il faut ajouter 13 pour obtenir la tabulation souhaitée. 


Exemple : 


16 PRINT TAËS 1354553; "ORIC" 


Affiche ‘ORIC’ en colonne 5. 


14 PRINT "OUPONT"; TAC 13+8 05: "JEAN" 


N’affiche pas ‘JEAN’ en colonne 8 comme cela devrait être le cas. 
On procède donc ainsi : 


14 HOMS= "DUPONT": PRESS "JEAN" 
24 PRINT HOMS: SPC £G-LEHCHOMS$ 2: 
SA PRINT FR& 


EUH 


CLFOHT JEAH 
He— 20 —»| 


LPRINT TAB () : 


Pour obtenir la tabulation verticale, il faut ajouter 13 : 


14 HOM&:z "DUPONT": FRSS "JEAN" 
S4 LPFRIMT HOMS:TAES 1548 5 FRS 


Nous présentons ci-dessous un programme d'édition d'étiquettes. Les adresses sont stockées 
en DATA. 


Plusieurs étiquettes sont imprimées sur une ligne. Par conséquent, il faut utiliser des tables 
‘tampons’ pour stocker puis imprimer les noms et adresses. 


NOMS( ) ADRS( ) 


DUPONT 61 - DOMFRONT 
BREBION 14 - BAYEUX 
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Etiquettes 


14 


35 


REM ETIGLUETTES 
24 : 
IHSEE " Intervalle entre gti 


46 NN= Ë " Hombre d'etiquettes 
54 
EG 
FE 
20 


3 
1 
1 
1 
1 
Î 
1 
Î 
Il 
ë 


UN QU JMINEB FIRE CE 
DR D GR DS SO m'a 


MF: LC 





GATA MF CUPCHT, 61-COMFRONT 
DATA MR BREBIOH,  14-EAYELX 
DATA MR BALUTIH,  FS-PFARIS 
CATA MF ROLLET, Fa-FARIS 


CATA ME MARIOH, Fr-LAGH' 
CATA ME CEGREMONT, S9Z-5T CLOUD 


FOR Es TO INTONMS3 5 
‘FOR Isi TO 5 

READ HOME T1, ADR I 
:MEAT I 


FÜR Isi TO 3 
LPRIHT TAES SHC T1 METH 
5 LPRIHT HOME T 1: 
:MEAT TI 
:LPFRTHT 


FÜR Isi TO 5 
LPRIMT TAEG134E T1 ÉTH4E 1: 
LFRIHT ADRHE T 1: 

:MEMT I 

:LPREIHT:LPFAINT 


HEAT KE 


CLIFOHT MF EREETUOH 


61 -COMFRCIMT 14-EAYELIX 


ME ROULET ME MARTIN 
Fa-PARTE Fr-LAGHS 


E 
Ca 
c 
M 
in 


je _EALUT 


IH 
Fa PARTIE 


MR C'EGREMONT 
3£-5T CLOUC 
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Editions imprimantes : 


Pour éviter que l'imprimante ‘oublie’ des caractères, on fait : 


125 CALL #ED041 “ Clavier inhibe 
126 LPRIHT "COUCOU" 
127 CALL #ECC7 “ Activation clavier 


Pour lister un programme, on fait : 


& CALL #EDG1:LLIST 14- 
16 Froïramme a lister 


Couleurs avec PLOT X, Y : 


Avec PLOT, les couleurs d'écriture et de fond peuvent être déterminées en ajoutant à la 
chaîne à imprimer 


. CHRS (couleur écriture) 
. CHRS (16 + couleur fond) 





19 CLS 

SA H=CHRSE 2 I" VERT" 

48 PLOT 14,14. 

SA : 

EE YB=CHRSE 16+1 + "FOND ROUGE "+CHRSC 1647 
Fa PLOT 12,12,%8 
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COPIE D'ECRAN 


Pour recopier un écran sur imprimante, nous utilisons l'instruction SCRN(C,L) qui fournit le 
code ASCII du caractère de la position spécifiée. 


Copie écran — imprimante 


READY 
LIST 





IMPRIMANTE 


ECRAN 


FILL : 


Fill permet de colorier des parties d'écran. 
Il permet également de modifier la couleur d'écriture (foreground) 





14 HIFES 
24 CURSET G,6,2:FILL 54,1,€ 
54: 


4 CURSET 6,6, 1: CEA 164, 156, 
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REVS 


Avec la plupart des Basics, lorsque nous appuvons sur la touche <RETURN> en réponse à 
une instruction “INPUT”, la variable spécifiée dans l'instruction prend une valeur nulle. 
Sur ORIC-1, il faut nécessairement entrer une valeur avant d'appuyer sur <RETURN >, ce 
qui n’est pas pratique. 


Nous proposons ici un sous-programme qui remplace l'instruction ‘INPUT’ tout en permettant 
d'appuyer directement sur <RETURN>. 


À chaque fois qu’un caractère est saisi par ‘KEY$’, nous le concaténons à ‘LIGS’ 


LIGS$ 


C$ 
olufr[ofn] : 


Le code de suppression de caractère (en cas d’erreur de frappe) est géré par le programme 
(code 127 de la touche DEL). 


La première version de programme présentée saisie une ligne là où se trouve le curseur au 
moment de l'appel du programme. 

La deuxième version, saisit une ligne dans un endroit de l’écran spécifié. Nous utilisons pour 
cela l'instruction PLOT X,Y. 


YL 


DUPONT 





INPUT avec KEY$ 


RElezzsssssssscenmce JHPUT HYETC 


Lise" 






MRCIF Cet" THEN Sd 
Lil =eLENC LICE 

THEH FRIHT:EETLEH 
7 THEH 5164 






LA THEN LIGSELEFTHELIGS. 1-1 M: PRINT CHESCTET 3: QT SEA EL 


3198 IF CUSE THEN FIHG:COTO 3644 
3118 LIGS=-LIGS+CS: PRINT C&; 
3126 GOTO 346 
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Saisie avec KEY$ et PLOT 


FEN SLIG SAISIE AVEC HEYS$ ET FLOT 


CLS 
LIG$="" 
4Q “L=18:"L=18 " Coordonnées affichage 


Lifgm 
ann 


ÉA L<LENCLIGS 
76 PLAT “L+L,ïL.134 “ Curseur 


96 C$=KEY$S:IF C$="" THEN 34 ‘ Attente caractere 
188 C=<ASCI CS à 

119 IF C=13 THEN 268 ‘ Retour charict 
128 IF C<+127 THEH 154 ‘ SupPression 


149 IF L? THEN LIGS=LEFTS#ELIGS,L-1 3: PLÛT #L4L. YL," "GOTO 64 ELSE 


154 IF Cé3Z THEN FIHG:GOTO 364 
155 LIG$S=LIGS+CS 

164 FLOT äL,YL.LIGS 

176 GOTO 64 

184 : 

299 PLOT #L+4L,YL,m" 

214 : 


Test clavier avec PEEK (- 208) : 


Le test des touches peut se faire par la lecture de la mémoire # 208. 
REN  CEFLACEMENT FAFICE 
FR I HT CHRIS CRE RE clavier mugt 


LÛRES 6 
“Os: Ce 10: PLOT HO. YC.17 :REM rouge 








BePEERSHEGE IF Med THEH FH: REM attente 
PLOT LE, 16 


ER REX 


IF # 









2 THEH 
THEH 
THEH 


OCR RER EE 





IF “= 
FLOT % 
GOTO FE 


i mt 


Dig LR io fie D D D Gi Um GG mm 
Bi 


Femme de I D CA Ja de 
DA REX 


DEA 
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Le programme ci-dessous affiche 2 nombres au hasard et demande quel est leur produit. 


Multiplication 


14 


Votre réponse 





REM MULT MULTIPLICATION 

CLS 

#L=ig:#L=1g ‘REM Affichage ligne 
REM-msnesrsnes e nombres entre 1 et 24 ------ 
NISIHTÉ RHDE 1 #20 3: NEZ=INTCRNDE 1 #28 


IF H145 OR MS<5 THEH GOTO 43 


FLOT #L-1,#L-4,5TRS# M1 5 
ABS UANHETRSE HZ: PLOT 4L-2, rL-3. 4% 


PLAT 4L-1,%L,"=" 


GOSUE 62 


IF VALÉLIGSOENIÆNZ THEN PLOT 15,15,"0K..,,," 
WAIT 298:G0T0 28 

REMSSS SES Rens de Saisie d'une ligne 
LIGS="" 

LeLEMELIGS 


PLOT #L+L,"L,139 


CH=<KEYS:IF C$="" THEN 9% 

C=ASCE CS à 

IF C=13 THEH 266 

IF Cé2127 THEH 154 :REM Suppression 


IF LA THEH LIGS=LEFTS#(LIGS,L-13:PLOT AL4L,YL," ":GOTO 65 ELSE 
IF Cé32 THEN FIHG:GOTO 98 

LIG$=LIGS+CS 

PLOT #L,YL,LIG# 

GÜTO 65 


PLOT #L+L,YL," on 
RETURN 
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CARACTÈRES SPÉCIAUX 


Les caractères spéciaux permettent d'afficher des messages de couleurs différentes, clignotants, 
en double hauteur. Nous présentons ici quelques exemples. 


Affichage multicolore double hauteur 


1 Pers AFFICHAGE MULTICOLOEE COUBLE HAUTEUR 





“ 









di Val 

pale =CHESE LE 

Es) FÜR 1 Î TÜ LEHE A$ 2 

F4 . : MEN ii LE Lir" 

Eÿ À Be Lo + HI DB Ag. ll: 

34 

15 

il 

LE 
Ce qui apparait | JOYEUX … ( | Double 
à l'écran hauteur 





Affichage bicolore double hauteur 


14 REM AFFICHAGE COUELE HAUTEUR EICOLORE 


Lis Double 
"JOYEUX HOEL..." 
h "= 










Moitié 
rouge 











4% ! 1 

5 CHR 16 +8 

114 FLÜT kr #$ 

128 FLOT 4, 41.45 
134 FLOT #-1,%,1 
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Affichage multicolore avec défilement 


ii 


FEN AFFICHAGE MULTICOLORE 


ii 


CLS 
A$= "OR IL FOUR TOUS, ." 


cn 


mimi 





JOYEUX NOEL... 





JT A BR lo Pia 
XX RER: 


(D 





FLOT 1,19,H 
RE 
HER IGHTSE 
HAIT 14 
GOTO 148 





x 
A, 


Di 





“2, 1 +LEFTÉC 


me pe pu me pe LE 
Life mi 
A Zi 


= 


if 


Affichage multicolore double hauteur avec défilement 


A FEM AFFICHAGE MULTICOLORE COUBLE HAUTEUR 
ä FEM AMEL DEFILEMENT 


Di L 
ai 


IP 
CR EUX] 


& CLS 
à A$="JOYEUX HOEL..." 
D K=B:Y=11 





nm Hi 


Double 
Fü i I=i TÜ LEHE A : hauteur 


‘C=T- IHTÈI<F :REM couleur 


DEEE S+CHRSC L HHMIDSC AG Il: 
MEST I JOYEUX is | 
PLOT #1, %, 15 
FLOT é=1iv#l, 1 


FLOT #48 
PRO 











et CT A 9 © 


SUR ee DE 





PRES UES. 


HBSRIGHTSE ES, EI LEFT SL ES, LEE 6 x 
LAIT 14 
GOT 114 


mors pe be pa pe Li LE Lit O0 {5 
NE Biihim 
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COULEURS BACKGROUND 


Ci-dessous, nous changeons la couleur de fond (BACKGROUND) de 2 parties de l’écran. 
De la même façon, nous pourrions changer la couleur d'écriture. 


Il suffirait d'écrire : FILL H, 1, C (au lieu de 16 + C). 


LE 
ee ———————————— 


ay 

















Fenêtre BACKGROUND 


4 FEM 


HIFRE: 
35 IHET 

39 REM--e-e Fenetre 1 
OS 
RENM-------— Fenetre Z 






Ex 





[a] 
ä : 
ä STOF 
D RE SPC 
G CURSET K1,%1,0 
ä FILL H:1:16+C 
G CURSET CHI4L 3,1 
ä FILL H:1:16 
24% RETURH 


36: C=6 : GOGUE 





Fond vert 


Fond 
bleu clair 


FEHETRE ÉACEGEOUHE 


J'Ces: GOSUE SA 


SA 


FEHETRE 
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HISTOGRAMMES 


Grâce aux couleurs, l'ORIC-1 permet une présentation attrayante des résultats. Nous 
présentons ci-dessous 2 types d’histogramme. Les valeurs sont contenues dans une table 
VNTE(). L’échelle est calculée automatiquement. 











Avec DRAV : 
700 
600 
500 
400 

[x 

JANV FEV MAR AVRIL | 

T 

Fond jaune ] 

Avec FILL : 




















JANV FEV MAR AVRIL | 
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eu Ti avec DRAW 
HIESTOGRAMME 


AH. SG 









DATA M 
FÛIF: M= 1 TO HM 

4 :READ MOIS HS, MATEC HO 
EG HEXT M 


REM=-—— Recherche Mas 
MH=YHTES 1 

FOR M=2 TO HN 

IF VNTEC M 2MY THEM MH=UHTES M 


HEXT 

ECH=HECEF:- 1% 

A REM ue one ce one eo ne ue 
CURSET #6,%6, 1: DFAH Hi 4, | 
CURSET #6. %8, 1:DFAU 4, HECR., 1 

REM-— em AFFICHAGE rois 

FOR AM=dASé + A+ Ed TO dAGEA+C SEAT CEA STEF 46 
:POKE AM+Z, Lé+s 

HEXT A 


SI DIT 
CA 9 Pa me 1 OÙ 












FOR WMzl TO HM 
CURSET M4 THE NM 1, 1 6, Et 
FOR Izi T[0 LEHCMOTE#E M 

#HeHSCENMICOSE MOT EE MAT, Lu 

CHAR #6 1 
CURMOM 6,45 
HEXT I 

HET M 

A REM---- Courbe 

CURSET 68 A-MNMTES 1 #ECH,. 1 


FO: MZ TO Hi 
Cfa VHTEC M U-MAMTES Met ECM 
DRAM UOTE, 0 1 
HET M 
RE PT ou nu no one AP ITA UE a LEE 
For Mal To AR 
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Histogramme 
avec FILL 


Eat Pa Pat 


NRA RER ENCE EX] 


a 
EX 


Li 


D JU LR 


Fi ET La di Fe iQ 


D SO D 
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F1 FOR M=ë 


4 RE AFFicha ge 
fs ee M=1 


FEM HEILL HISTOGRANNME AVEC FILL 


Her 
JAH 


MA: 
MAT. 


C'ATA 
DATA 
CAT 
GATA JUILL. FH 

FÜR Mel TO HN 

:REAC MOT SC NM, MATE H 
HEËET 








nt Depart axés 


Recherche pra 


el 





MÉ=VHTEL 13 
TI HN 
CMHTEL M M 


‘IF THEHO M MEITE ES M 





POLE AM4E. LE+ 


HEXT FM 


FÜR Met TO HN 
CURSET HAE 





RENM-- ne Cire 
FÜR Wz1 T[ HN 

Dr MHTESHSEECH 
CURSET HE+TEKC M Ltd, VE pr Ei 
fi 

m4 TUE M1 + 
"lié 









CURSET 
FILL D 
HE iT M 


Eli, 


MaATEUrE 
TO HN 
= YNTES M3 “#ECH-15 

ET HG+Z +TH#CM-1 3.8 
‘ FRE VHTEC M 
2 TO LEMC& 
.MITIRC HS, 1. 135 
#6, L'CURMON 6.4.5 














NEST I 
HEST M 


REMPLISSAGE D'UNE FIGURE 


Le problème consiste à remplir une figure fermée déjà dessinée sur l'écran. 


Parcours du périmètre : 


À l’aide de l'instruction POINT (X,Y), nous parcourons le périmètre de la figure et nous 
stockons tous les points dans 2 tables X() et Y(). 


_L Pot courant 


On cherche 
le point suivant 



















Remplissage : 


ll suffit de choisir un point à l’intérieur de la figure et de la faire pivoter autour de celui-ci. 


7 


EL 





On fait pivoter 
une droite 


Nous pourrions calculer le périmètre de la figure en faisant : 
Périmètre =); SQR(DX*DX+DY*DY) 
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Remplissage d’une figure 


A REM REMPLISSAGE D'UNE FIGURE 


Fifor 
Len 


2 DIM X€158, € 1500 

29: REMS=ememense Trace d'une fiQure Pour essai 
368 HIRES 

44 CLIRSET 24,2.1 

Sa DRAU 24,19,1 

52 CEAU G.39,1 


Sé CRAN -24.4,1 

5° DRAM G.-484,1 

FA REM-----—— Recherche Fremier Point 

E4 FOF Y=û TO 193 

A4 :FOR “=4 TO 233 

144 1e FOIRE “iz-1 THEN 158 

114 :HEËT ; 

124 HEXT + 

134 FRINT "ECRAN YIERGE":STOP 

144 : 

154 FRIHT "PREMIER POIHT:"ix 

1 RElszzzzzzezseesessezzz Recherche de Points 
174: 

15 :REN Foint courant 
1ë 

1 D 













FOR F=5 TO 1964 
FOF izrC-1 TO YC+1 :REM Recherche Point suivant 
FOR #1 —1 TO XC+1 

IF #i=*C THEH IF YC=Y1 THEN 274 





IF POINTE #1. "13-11 THEN 278 


FOR Izi T0 5 ‘REM Retour arriere 
MISXEP-T)) THEH IF  Y1=YCP-12 THEN 274 
I 


:YC=Y1:GOTO 318 





: HEXT. “1 
PRINT "FIH"::GOTO FAR 







cn THEM IF YC=%é3 THEH FA 





Del 1-0 
x à THEN IF Creñ THEM F3 
AP HN 1 
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RECHERCHE 
D'UNE SOUS-CHAINE 


Il est fréquent que nous recherchions la position d’une sous-chaîne dans une chaîne de 
caractères. 


CHS CCHS 


DONNE-MOI LE PRODUIT DE 20 PAR 10 


Dans le programme ci-dessous, l'opérateur pose la question DONNE-MOI LE PRODUIT 
DE 20 PAR 10’. En recherchant les positions de ‘PRODUIT DE’ et de ‘PAR’, nous 
répondons à la question. 


Recherche d’une sous-chaîne dans une chaîne 


14 REN RECHERCHE CUHE SOLS-CHAIHE 
20 REM CAHS OUHE CHAIHE 


4 
4 
Ë 
3 
1 
1 
Î 
1 
Î 
Î 
Î 
1 
15 


CLS: INPUT "Votre question "3% 
CHé=GS$ : COCHE "PETIQUIT DE: GISUE 246 


IF F=4 THEH 4% 


à 0 1e 0 5 DC 


FiS= FIGHT CS, LEME Gé F1 as FLE 'ALE FI 
CHS=F 18: CCHS=" PAR" : GOSUE SE 


IF Fi THEN 2 


D SD D mm 


à PRINT:FRINT FI#FE 
STOF 


Lt 2 4 M PRE MR PENTEEX 
DA EUX 


meme RON de recherche 
LELENME CCHS à 


LA | 





à FOR Pet TO LEHCCHG OL 
IF MIGSCCHS. PF LreCCHé THEN 204 
HEXT F 





RETLEH 


Votre duestiont DOHHE MOI LE PROCUIT CE Z4 FAF 19 > 
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APPRENTISSAGE ANGLAIS 
AVEC PRIORITE 


Nous choisissons un mot français au hasard dans la liste des DATAS. Nous l’affichons et 
demandons sa traduction anglaise. 


En cas de mauvaise réponse, nous stockons l’erreur dans une table ER$() et lorsque 5 erreurs 
ont été commises, nous affichons les mots de la table des erreurs. Ainsi les mots mal connus 
sont présentés plus souvent. 





Table des Table des 


erreurs mois Justes 


Voisinage de la réponse 
Nous pourrions vérifier si l'élève a seulement oublié une lettre (voir page 47). 
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Apprentissage anglais avec priorité 


FE AFHHG APPRENTISSAGE ANGLAIS AMEL PRTORITE 


HMOT=LT 
CLE 


CATA LIVRE. EÛDE TETE. HEAL 
CATA TAËLE.TAËLE: LUHOT , HOMO 
CATA CHAT.CAT,: | 
CATA CHIEH, DCI 

GATA MAISON, HOLISE 
CATA VOITURE, CAF 

DATA IAMEE. LEG 

DATA FRQELEME. FETELENM 
DATA EDITE. EX 

DATA EFAS. AE 

DATA 
C'ATA 
C'ATA 





meme 
D mi mu 


CO TJ DUN BL To me RD GROS DNERLS 
A 





RARE 


Æ , SHÛE 


nement Din Liitir 








IF HERRSS THEH GEE 


DU RDAEEX EUX, 


RESTORE 
ÆTHTE RH 1 CÆEHMOT TE fx THEM CEE 
F Hz} 

FOR Iei TO &:READ FRS. ANG&:MEAT I 








FEHD FRS, AHGS 


So ii 


PRINT: PRINT FRS: M 
INPUT "Anglais ":F$# 
IF Ré=AHGS THEH PRINT:PEINT "OK": PRINT:GOTO 390 


DREUX EL E) 


a 


es 
dE 


PEMES-SSscSpij out EEE 
FOR Izi TO 164 
IF ERSCIO="" OR ERSCIe"#t" THEN ERSCID<FRS: TRS I ANGES :GOTO 46 


Un Do ee GO) Jin 


RS BR HE LE LH og Let th Li E 
UD mini 


pes 
EN 
Det] 


HE#T IT 


£a 
in 
Lu 


dé HERRSHERE+T 
dFf PRINT :FPEIHNT Erreur La bonne rePonse est: "oi AMNGS&:FRINT 
464 GOTO 34 
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des erreurs 





SAS He INHTCRHOE A TENERROMLCIF ce THEN 545 

SGé IF ERgé#iet£t THEH SAS 

547 XAz# 

514 FRS<ERSE 6 1: AHGSETRSE 1 

524 PRINT:PRINT FR$i" ": 

539 IMPUT "Analais "iF$ 

Sd4 IF FS=ANGS THEH FEINT:FEIHNT MOE: PRTHT :ERSE #4 ie EU MERRSHERE.- 1 16 
OTO Sat 


SEA PRINT :PRINT Erreur La borne rélonge get" ANGS: PRINT 
sa GOT SA 
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Deuxième partie 
ÉDUCATION 


52 PROGRAMMES 


TRACÉ D'UN DESSIN DÉFINI 


EN DATA 


Le programme ci-dessous trace une figure en reliant entre eux des points définis en DATA. 


Tracé de dessin défini en data 


14 REM TDi TRACE DE DESSIN DEFIHNI EN DATA 
28 : 

24 : 

25 REM CARTE DE FRANCE 

27 : 

38 DATA 146,91 

48 DATA 193,82, 186.76; 115.85 
58 DATA 130,94, 148.1A0, 145,115 
68 CATA 136,120, 142,134, 142,139 
7@ DATA 145,154, 148,164, 148,166 
80 DATA 142,169, 136,172, 124,172 
94 DATA 118.184, 199,1%4, 97,181 
198 DATA 94,184, 82,175, 85, 157 
114 DATA 85,148, 85.139, 79,127 
129 DATA 79,118, 64,118, 64,115 
139 DATA 61,112, 61,199, 67:19 
149 DATA 79,186, 73,166, 82.149 
150 DATA 85,196. 62,97, 85. 94 
164 DATA 88,97, 94.97, 144,91 
208 DATA 393,933 

219 REM-------- 

215 HIRES:INKE 

22@ READ XA,TA 

225 CURSET #*#A:"YA:1 

228 : 

ar. READ %X.Y:IF X=999 THEN 294 

248 : 

250 DRAW X-#A,Y-"YR, 1 

268 XA=X:'"YA=Y 

279 GOTO 239 

28Q REM-------——-— CoPie imPrimante 
298 LPRINT 

36@ FOR L=69 TO 199 STEF # 

395 : | 

319 :FOR C=24 TO 199 STEF 3 

315 : F=g 

328 : FOR 1=A TO 2 

334 IF POINTCC+I,L d=-1 THEN Fzi 
348 : NEXT I 

358 IF F=1 THEN LPRINT "#'";:G0OTO 360 
355 : LPRIHT " "; 

368 :MEXT C 

378 :LPRINT 

373 : 

384 HEXT L 
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TRACÉ D'UN DESSIN 
PAR SEGMENTS DE DROITES 
ET DIGITALISATION D'UN DESSIN 


Le programme ci-dessous permet de déplacer un curseur à l’aide des 4 flèches —< 7 |, de 
‘valider’ des points et de tracer des droites entre ces points. 


e Pour ‘valider’ un point, nous appuyons sur ‘V’. 
e Pour tracer une droite entre le point courant et le point valide précédent, nous appuyons 
sur ‘T. 






1" POINT 


1. 


V: POUR VALIDER 
T: POUR TRACER 


Le programme permet également de ‘digitaliser’ un dessin : 


e Nous collons sur l'écran une feuille transparente sur laquelle a été décalquée la carte de 
France par exemple. 

e Nous déplaçons le curseur sur le périmètre de la figure et périodiquement, nous ‘validons’ 
les points. Les coordonnées X et Y des points s'affichent alors sur l'imprimante. 


Carte de France 
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EXTENSIONS POSSIBLES : 


e Nous pourrions stocker les points ‘validés’, dans 2 tables X() et Y(). 





e La suppression et l'insertion de points permettrait de corriger le dessin. 
e Les tables pourraient être sauvegardées dans un fichier. 


Le programme ‘SIGN’, ci-dessous, reproduit une signature ‘digitalisée’ avec le programme 
‘TDES. 


Digitalisation de dessin+tracé par segments 
14 FEM TDES DIGITALISATION DE DESSIN4TRACE PAR SECGMENTS 


25 HIRES: IHKE 
26 “e104:%=1004 :RENM Conrdonness depart 


C$= ÉES: IF CHE SUNTHEH 154  :FREM Attente frafle clavier 





DEAR) 


GETE ET | 


Ü 


x 
ni 


IF Ts1 THEH CURSET #1 





IF Cée"E" THEH CURSET #4 
IF CRE" THEH CURSET #7, 1 KA et: GOSUE SEL 
IF C&="T THEN CURSET #4, T4: 1 :CDRAU ef, Y TA, 1: 


PO ee 0 07 = Di LA Le 0 PQ ee 


CNRS EN ERR EERERREUR ERA ERR EL ELX EEE 


fat: fe: GOSUE 


r 
Fr 


Li mi 


TeG:IF POINT #K, “=-1 THEH Teil 
GOTO 54 


BON tool im mmenmmmen pe me EL D —} & 
Ex) 


D 
RAR] 


€ 


564 LPÉIHT #,%:RETURH 
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Signature 


14 REM SIGN SIGHATURE 

2 : 

24 : 

36 DATA 127,16@1; 118,192, 186,193 
44 DATA 94,194, 8£,1%4, F3, 154 
59 DATA 65.193, 62,182, 61.161 

64 DATA 62,33, 64:97; 68,935 

ra DATA r4,93, 82:31; 94,98 

84 DATA 142,91, 197,94, 119,33 

94 CATA 112:94, 113,96, 112,98 


194 DATA 114,93. 113,148, 116.,1@1 
114 DATA 118.194, 118,16, 117,193 
128 DATA 114,111: 198,113, 142,115 
139 DATA 34,117, 89.11%; 3,118 
144 DATA 66,117. 62.116: 61.114 
159 DATA 62.112, 64,111: 68,199 
298 CATA 339,999 


215 HIRES:INKE 
224 READ “A. YA 
225 CURSET XA, YA; 1 


234 READ X.Y:IF #=393 THEN EHD 
234 CRAN #4. %—%4, 1 


264 “Az: YTA=YT 
278 GOTO 234 
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CARTE DE FRANCE 


Le programme ci-dessous permet de tester les connaissances en géographie. Il existe 2 modes 
d'utilisation : 


e Nous présentons la position d’une ville et nous demandons le nom de la ville 
(Mode ‘IV1'). 


QUELLE VILLE? EE 
OK 





e Nous demandons de situer la position d’une ville. L'élève déplace un curseur et 
valide la position choisie par ‘V’. Nous donnons à l'élève l'écart entre la position choisie et la 
position exacte. (Mode ‘IV2') 


Position exacte 


DY 


Position choisie 
DX 
DISTANCE = SQR (DX X DX + DY X DY) 


PARIS ? 





© Pour accélérer la vitesse de déplacement du curseur, tester la mémoire # 208. 
(Voir page 13) 
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Carte de France 


FEN CARTE DE FRANCE 


1 DIM MC ZE, ME SE, ge ZA à 





DATA 








+31 

44 DATA 82: 146: 76: 115,55 
SA DATA 124.34, 148.18, 145,115 
SG DATA 126.150. 142.134, 142,139 
FA DATA 145.154, 148.169, 145.166 
Sn DATA 142.169, 136,172, 12d4,1FE 
39 DATA 115.184, 193,154, 97,181 
144 DATA Gd.154, 82,175. 85.157 
114 DATA 65.148, 65.139, r9.127 
124 DATA F4,115, 64.118, Ed, 115 
124 DATA 61.112, 61.194, Er. 149 
144 DATA FH. 1HÉ,  F3,1@6, 82.149 
154 DATA 85,196, 82,97, 5, 34 
164 CATA 88.97, a4,97, 144,91 
165 DATA 999,399 

LA REM--- WILLES 
175 DATA 34.143, CAEH 

176 DATA 199.196. PARIS 

17% DATA 146.115, 0RLEANS 

178 DATA 9F.115LE MANS 

184 DATA 73.118. LORIENT 

182 DATA 67.112: BREST 

184 DATA 97,133. POITIERS 

186 DATA 143,145, LIMOGES 

188 DATA 91.157. BORDEAUX 

194 DATA 134.133, LYON 

192 DATA 136.145, GREHOBLE 

124 DATA 136.169. MARSEILLE 

136 DATA 146,172, TOULOUSE 

24 DATA 999,999,2222 


15 HIRES : INK 
224 REAC “A: A 
225 CURSET #A,TA, 1 






228 : 

234 READ HaTIF #2993 THEH 36 
244 

254 EAU A A 1 

3 Az 





270 GOT 
LOU RE ne ne nee ce eee eee 


ET 





AV VS:IF #=2993 THEH Hyey:COTO 48 


EE a à: OGC M = 
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494 IMPUT "MODE CIV1.1V25 ":mS 
414 IF MH="IVI" THEH GOSUE 1444 
415 IF M$="I/2" THEH GOSUE 1244 
454 GOT 44 


4e f 


ges 


gr 
485 
485 
436 
435 


4r4 : 


Q94 REM====zs=zzezsszsssssz [NTERROGATION VILLE == 


1444 
1814 
1424 
1434 
1444 
14585 
1435 
1199 


V=IHTE RHDE 1 ENV 41 
CURSET VC UN YYCY 1 


INPUT MAUELLE MILLE MiMeIF Wge"FIH" THEH RETLFH 
IF Meg THEH PRINT "OK: UAIT 244: GOT0 114 


FRIHT PHÜHI C'EST MaiMSeNMAIT 244: GOTO 1144 


CURSET We UC, @ 


a GOTO 1864 
A REllzszeseesssesssss [NTERROGATION FAR VILLE =z2x 


Me THTÉ HDI UCENU 4 


à PRINT "OUI EST SITUE "iwgé wi 
FEIHT MLTILISER 4 FLECHES FUIS ‘w°" 


24 CÉ=KEVS:IF C$<>"" THEN 1336 


af CURSET #1 


3 1 
A T=G:IF POINTE EH, 
A GOTO 1254 





CURSET 4,1%. 


A GOT 1264 


IF T=i THEH CURSET #1 


IF 
IF 
IF Csi1 THEM 


IF CH="V" THEH 


Ne 
C 





EG 
d=-1 THEH T=1 


DH HE VD: DV = UC y 
D=SQRE DHKDM4C' HOT 


A PEIHT "VOUS ETES 4 "iD#14:"km" 
A CURSET HW, eu, 1 
4 MAIT 244 


GÜTO 1244 
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TRACÉ DE DESSIN EN RELATIF 
AVEC: ECTIELLE 


La carte de France du programme précédent est tracée à l’aide de coordonnées absolues. 


Sur le programme ci-dessous, nous spécifions en DATAS les coordonnées relatives au point 
précédent. Ainsi nous pouvons agrandir ou réduire la taille du dessin. 


Pour obtenir les coordonnées relatives à l’aide des coordonnées absolues, nous faisons : 


34 DATA 184,3 
48 DATA 145,8 
28 DATA ,..,.,... 

246 DATA 333,935 


:FEM 1 gr Point 


Fe — 







FEAD #4, TA : er Foint 
RER HAUIF KeSS5 THEN STOF 


DH=N-HA : Dev TA 
PRINT 
ASE CAES 
COTO 3eg 
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Tracé de dessin en relatif avec échelle 





ECH=1,É :REM ECHELLE 
REAC #4. YA 
CURSET #4, A: 1 


14 RE TCE TEACE CE CESSIH EN RELATIF AVEC ECHELLE 
Ef : 
39 DATA 194,36 :REM 1 er Point 
4m DATA 3-3, CPL 9.3 
58 DATA 15:93: 15.6 
64 DATA 5, 15 6.4 
F4 CATA 3:15: 3.6 
84 DATA Eu és 
34 DATA H, -6.1Z. 3.4 
144 CATA - #3 — ler 
114 DATA 3-18: 4,3 
129 DATA -6,-15 3, -6.4 
159 DATA M3,  — A, 
144 DATA 64: 3 3. 4 
154 DATA 3.5, 3 5,5 
164 DATA 2-3, 3.3. 6.4 
174 DATA 6-6 
244 DATA 399,999 
#14 : 
399 HIRES:IHES 
ps] 
f 
a 


446 READ Dé, DY:IF Cé=999 THEH STOF 
414 DRAM CX#ECH, DY#ECH , 1 

417 HASSA+DAXECH YASTATHONHECH 

418 CURSET #A,%A,1 

424 GOTO 44 
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TÉLÉCRAN AVEC ÉCHELLE 
ET SAUVEGARDE 


Nous utilisons ici le principe bien connu du ‘TÉLECRAN’ : 

En déplaçant un curseur à l’aide des 4 flèches Î | <—-—, nous représentons un dessin en 
laissant une ‘tracé’ derrière le curseur. 

Mais en plus, nous stockons dans une table MDES%{() tous les déplacements. Ainsi, nous 
sommes capables de dupliquer le dessin réalisé dans une autre partie de l’écran avec une autre 
échelie (1, 2 ou 3). 


MDES$ %( }) 





Le dessin que 
vous avez réalisé 


Le dessin 
reproduit à 


l'échelle 2 





Il est prévu un mode pour sauvegarder la table MDES%() sur cassette. Ainsi, le dessin peut être 
réaffiché et amélioré. Si vous ne désirez pas sauvegarder les dessins, les instructions après 760 
ne sont pas nécessaires. 

AMÉLIORATIONS POSSIBLES : 


Nous pourrions gérer plusieurs dessins : 


e Une table à 2 dimensions MDES(,) nous permettrait de gérer plusieurs dessins indépendants 
simultanément. 
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© Le résultat d’une composition de dessins pourrait être sauvegardée par une sauvegarde 
directe de la mémoire écran par : SCAVE «DES», A40960, E49000. 


© Un dessin pourrait être effacé en utilisant MDES() (comme pour une duplication), mais avec 
CURSET X,Y,0 au lieu de CURSET X,Y,1 


e L'affichage de texte se ferait en spécifiant à l’aide d’un code (CTRL E par exemple) que les 
caractères à suivre sont du texte. 






Début texte 
CTRL E 





Fin texte 
CTRL F 


© Pour accélérer la vitesse de déplacement du curseur, tester la mémoire # 208. 
(Voir page 13) 





as 


e On pourra ajouter: j" ji 
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Télécran avec échelle et sauvegarde 


EN SDES TELECRAN AVEC ECHELLE ET SAUVEGARDE 





GOSUE 20404 * POUR SAUVEGARDE SEULEMENT 


CLS 
FRIHT MCCES : COMPOSE UN CESESTH" 
PEIHT " UTILISER LE 4 FLECHES" 
PRIHT " F FOLR FIH CESSTIH 
PRINT "ADES : AFFICHE LH LC IH CÜOMPOSE" 
FPRIHT "£ : SAUVEGARDE DESSTH 
FRIMT ML : LECTURE CESSTH" 
RE Me eme or ms os on nou a son 
PRINT: INPUT "MODE CODES. ACES. SL "Mg 
IF M&="L" THEN GÜSUE 84 
IF M="E" THEN GOSLIE SAf 
IF MH="CDES" THEH GOSUE 174 
IF M$="S0" THEH GÜOSUE 34404 
IF Mé="LO" THEN GOSUE 446 
A IF M$="ADES" THEH GOSUE 435 
154 GOTO 144 
FREÉMzzsssesessesesessss COMPOSITION DESSIN =zzzs 
174 L=ñ 
189 HIRES 
185 PRIHT "É:EAISSER L'LEVER F:FIHM": 
194 #=144:%=1 464 
244 MODES 1 mé: MOUESKC Eee 
214 P=3 
239 : 
244 CH=KETSHITIF Ce sUt THEN 366 
ESA CURSET %,%:1 
264 CURSET #,%,f 
2° GOT £4f 
249 IF T=i THEH CURSET %,%,1 


DOMINER 









pe ee pe pe A UN AO UD OO Ti LR Pi me me pa me 
= 
at 


CO LQ L9 Pi re 1 CO UN 0 


DA DS Go 


= a 
D + 
3 = 


Lo 
ere 
BE 


IF C&="L" THEH L=z 
IF Cé$="F" THEH RETUFH 
IF C$="E" THEH Lai 
IF C&="E" THEN Le 


IF L£Z THEH CURSET #4 de. 
CeASCE CS 
MOESXE Poe 
GOSUE 4Gf 
T=G:IF POINTE 4, as-1 THEH Tai 


L:PEeP+1 


at QC Let La CC Ce Co Co Co Co È 


D D JE PURE here ma 


DARDRGSDDI-JNE 


GOTO 4 
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414 IF C=8 THEN IF X>1 THEN X=x-1 

424 IF C=9 THEN IF X<239 THEN X=+1 

434 IF C=14 THEN IF Y<139 THEN v=v+1 

444 IF C=11 THEN IF Y>1 THEN Y=Y-1 

454 RETURH 

49Q REM====s2222ecscsss AFFICHAGE DESSIN MDESXC) === 
495 HIRES 


SG PRINT "ECHELLE (1,2,29 "::GET ES:PRINT Es 
sa2 ECH=VALCESD: IF ECH<1 OR ECH>2 THEN RETURN 


PRIHT "COULEUR ENCRE €4,1,2,,,,73 "i:GET E& 
PRINT ES$:IF VALCESD<:4 THEM INK YVALCES 
PRINT "EFFACEMENT CO/Hi ";:GET R$& 

PRIHT R$:IF R$="0" THEH HIRES 

INPUT "4x HI IF #4 THEH K=MDES%6 1 

INPUT OMS OMSYSIF Ye@ THEN YeMDESXKE 2 5 

GOSUE 335 

GOTO 544 


Le 

FOR F=3 TO 34 

: CEMDESXCPO:IF Ce THEH 64% 

:IF Cség THEM Lei 

:IF Ceéé THEH Lef 

:IF Czfé THEH Lez 

:FÜF .Jsi TO ECH 

IF Le? THEH 616 

: QURSET a 11 

GOSUE 446 

HET 

HEAT PF 

FETLIFH 

RE = un ou nu mn LECTURE CASSETTE 
PRINT "AFFUYER SUR PLAY PUIS £RETURH2>" 
GET #%$ 

TEXT 

FRINT "LECTURE CHESSETTE" 

POFÉE #67. “ 1:344 EALDS 

CALL 1487, MOESX 

PRIHT:PRINHT "LECTURE TERMINER" :PRINHT 
HIRES: SeMDESXC 1 1: YeMDESXE E 1: GOSUR 535 
GOT 24% 


00 0 00 O0 CG 0 D CG DJ M DD M MIN NMNMNNNONNANNMANNANMNNNNE 


D CO ON ON UN R éQ Pie me 9 UD 0) Poe 60 UD 00 NN Un IT a a PQ Pa pa ta pe La ee if 


© DS D DR RSS DD ONDQS SSD SOS UNS 0 0 GO 0 0 JA Po 0 M JE 


ë FEM=zzssseseseseesessz SAUVEGARDE CASSETTE szssss 
4 TEAT 

914 FRINT "APPUYER SUR <RECORDC: FUIS <RETLUEHS " 

92 GET #$ 

234 PRINT "SAUVEGARDE": PRINT 

ad PÜKE #67.4 “ 1:34 EAUDS 

954 CALL 14£4,M0ES: 

964 FRINT:PRIHT SAUVEGARDE TERMIHEE" : FRIHT 

9374 RETUEH 
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Routine sauvegarde/lecture table 


19990 REM------- mme ROUTIHE SALVEGARDE-LECTURE TABLE 
19995 FEM Cf revue ORIC septembre 19H85 où Programme ODRIC EASE 
19956 


286064 CLS:PRIHT "ATTENDEZ":PEIHT 
LOGS A=#BEAA:REAC C$ 

26614 FÜR I=i TÜ LEHCS: STEF E 
SABEG : V=VALÉ "HU 4MIDSE DS, I. à: POKE AV: ASA+LIHEST I 

24834 READ D&:IF Dé&<é:"z" THEH Œ 

24444 COKE #4G4,#4A4C : DOKE RAGE. #ACES : DOKE hd, REËSE 

24945 RETUFH 

20056 DATA 5933999 9233944 363 SORA ADÉBSSGBAECASESSACÉESASSE2E 
CÉESASS4EE 

20864 DATA CÉESZGEERSEIAATESZ4SE 1 AASCHSSESC AGE SZ SE AAAAGE 1 FEI FAHAË 
G2E1419304 

2087Q CATA GGSSDAFSESCA 
GE2ADÉEE LE 

24084 DATA SÉESGSAESCALSOGFSEMSAESESSIZAIGELSE 
ES 34BAGEZE 

26499 DATA GAESA4CESCA4LGEERSEAERE 424251 ASS EESLAA4ES ZE AAGAGE 1 A1 FE 
1C24F @C'4HA 

24148 DATA ESAGGGCAFAASSASGEES 101 CSDAFSAGALESC EE 
D96415A383 

28114 DATAESH1SS01ASSOOAEESGEASAEC AG 1ESELÉALACHEGE 





4486101 2GCÉSESCSCAFSEALSESSADESAEÉASSTSSAAEES 


+ 
D 
Len) 
in 
HE 

m 
= 
im 
{3 
if 
& 
= 
E 
fai 








f G1SESAGASE ICEAAESE 
1CEESHIEE 
20124 CATAGICASST386346016ASCERSSSETÉ 1 ASCF ES S48SEZABAAE 1 CEZGFÉD1855 
FSéd648s41 
24134 DATASAGZÉNZE HAESQACSECFAASACEACF ACELAAAEIAALHESAASELTSSE4L2GES08Z 
4SéCiBUGE 
26144 CATAZAMAESS4CEACFATAUSELSREIILAELGAIGUESLOEEÉD 1 SGAAEAALAEZOQ9GFEZ 
ASÉCIESFÉ 
EAiS4 DATACSEACDAAEASFF ES SEC AACCASSDAGFASSASES2SASE4SSE 4 AAGISAAALOEZA 
ASÉÉSAÈSE 


20164 DATHASSFSÉCESSCFCSA1DAA4E4AGF SG 1FAMGGE 1CECSCSE4DYBGEASESD1CEF A0 
ECSBICELE 

£g1r FA DATRÉSCER ACSEICESSCF SOC T SRE GAZOQA4ERA EAd4CESCAS 
29184 DATA € 


Le] 
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ORTHOGRAPHE 


Nous présentons à l'élève un texte dans lequel figurent des fautes d'orthographe. 
En face des lignes contenant des fautes,8 l'élève doit frapper le mot erroné en l’orthographiant 
correctement. 





Entrer la bonne 
orthographe 










Mesdames, Messieurs, vous 


ayant convoqué après une convoqués 
interruption de plux de plus 
deux ans... L 





Nous avons prévu 2 niveaux de difficulté : 
e Les mots mal orthographiés sont distingués par une couleur différente de celle du texte. 
@e Les mots mal orthographiés ne sont pas repérés. 


La ‘dictée’ définie en DATA est lue dans 3 tables. 


TXT$ MIJUSTS 













Mesdames, Messieurs. 


une interruption d dfplux | 


ERS 
Sa 


convoqués 





[1] 





| 11 





plus 


= 





Erreurs Mots justes 
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Orthographe 


14 F 
15 E 
1F I 


34 C 
ai D 
54 D 
664 C 
Fa C 
54 C 
34 C 


57a 
530 
998 
995 
1a0a 
1a14 
1914 
1415 
1925 






EN ORTHI QFTHOGRAPHE 

HeCHRBE ET 

HE: 

ATA "Mesdames, Messieurs, vos" €, Æ 

ATA lauant convoque apres"; OA LLE  TONMOQUES. 
ATA une interruption de Flux". Flu FILE. 






ATA "ce qui ans Pour". quinse, AUITEE 
ATA 'm'enbretenir avec vous", #: # 
ATH "de ce Que le tamPs ecoule", tamPs,  Lenmre 
ATA 'ecoule a aFhorte de neuf", # # 

A DATA #:%#.* 
FOR LGzi TO 24 


REAC TATSE LG 1, ERRSC LG 1, MILIETSE LG 

CIF TATRELGIEUE" THEM HLELG:GÜTI 294 

MEXT LG 

PElazzsssssesesessenssenses MEMII| sessszezezs 


A CLS 
A PRINT SPCCGUUAT  : Affichage texte" 


PRINT SPCCS MATE : Affichage texte avec fautes" 
PRINT:IHPUT "Mode ":1M$ 

IF M$="ATF" THEH GOSUE 995 

IF Mé&="AT" THEN GOSUE 54 

GOTO 394 

REMzz==eszzsezcesszses AFFICHAGE TEXTE SANS EFFELRE 
CLS: PRINT 

FOR LG=i TO HL 

PRINT TXT#CLG 51 

NEXT LG 


GOSUB 1295 
PRINT:PRINT "Appuyez sur £RETURH> ":GET X$ 
RETURH 
REMememmmconsessscesc= AFFICHAGE TEXTE ET ERREURS === 
CLS : PRINT 
FOR LG=1 TO NL 
:LIGSSTATSC LG: ERRS=ERRSC LG à: MJUSTSSMIUSTSC LG): COSUE 200 
IF P=@ THEH PRINT LIGS:GOTO 145% 


:GHELEFTS$E LIGS, F-1 1: DS=RICHTSELIGS, LEHCCIGS FL +1 


1834 : 


1a4f 
1445 
1454 
1196 
1114 
1124 
1134 


PRINT G$;" "ES; "BE": ERRS:ES;"D":DS 


MEAT Li 
GOSUR 1245 


PRINT:PEIHT "APPugez aur €RETURHE MGET #$ 
FETLFH 
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Î FElzsesssseseneses VERIF ERREURS 

11 FRINT CHR EG: :FREM minuscules 

1247 PLAT 5,2%, "Entrez les corrections" 

1245 HEFR=A 

1214 FÜR LG= 1 TO HL 

1é  ALeza:"fLeLG 

12264 GOSLIE ET 

124f IF MIUST#CLG EUX" AND LIG$e"" THEH 1244 

1:45 IF MJUSTSE LG ES 'CEN THEN 1254 

1247 : PLOT 5.21. "Fas d'erreur DM:MAIT 1S4:FLOT S Ed" 2 
:GÜ To 1244 

1244 : 

1254 IF MJUETÉE LG ME SLIGS THEH FIMNG:HERSHER +1: GOT LEA 
1346 MEXT LG 

1546 PRINT CHERE ZA à FENM Maiuscules 

1247 EG=STRSÈHER 4" Erreur(si":PRLOT 5,21.ES$ 

1314 RETLEH 

2994 REM---—- 

2991 

2992 : 

2993 : 

2994 

3484 L=LENC ERRS à 

3814 FOR Fzi TO LEHILIGS 1-41 

3424 :IF ERRS=MICDÉSCLIGS.F,Li THEH RETUEH 

3939 HEXT F 

2944 P=<f:FETUREH 

3994 REM----e ee INPUT AVEC KEYTS& 

4464 LIGS="" 

4414 : 

4824 LeLEHELIGS 5: PLOT #L+L."L.134 

4934 : 

4644 CH=KEYS:IF C="" THEH d4gd4f 

dad45 C=ASCE CS 

4458 IF C=13 THEH FLAT #L4L. "LL." ":RETUEH 

4aGéA IF Cérler THEH diff 

4n7a : 

4084 IF LA THEH LIGHS<LEFT#CLIGS,L-1 1: PLAT éL4L "LL." "GOT Arf EL 
SE 4g4n 

ans 


4187 IF CESSE THEH PFIHG:GOTO 444 
4114 LIGS=LIGS+C# 

4124 PLOT #L.YL.LIGS 

4134 GÜTO 4426 
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APPRENTISSAGE DE MOTS 


Nous affichons une silhouette d'objet et nous demandons le nom de cet objet. Si une seule 
lettre de la réponse est oubliée (ou fausse), nous affichons la bonne orthographe du mot. 


Nom? BOITE 7 





Nous avons représenté six objets : 





Pomme Etoile Maison Bougie Brouette 


Ces objets sont dessinés par segments de droites (voir digitalisation d’un dessin). 


52 PROGRAMMES | 45 


Apprentissage de mots 


46 


FEN AFMÜT  AFFREHTISSAGE 
NHOT=6 
REM---- BOITE 





148 DATA 56, 147, 
118 DATA 147.67, 147,144, 
124 DATA 86 ; 31,64: 
134 DATA 197,87, 147,144, 
148 DATA 112.89, 147.67; 
142 CATA 32.84, 999,999 
145 DATA EQITE 

154 : 

194 REM--—-—— POMME 

EA9 DATA GET 99, F4: 
214 CATA 149,77, 112,81, 
L24 DATA 112,82, 111.98: 
234 DATA 142,145; 36, 146. 
& ATA 85. 145. 84.143; 
ë 1 FÉé:SR. ré: 1: 
2 3F EE Pa CLP 
& k ÉELCTE 399,993 
& “À FONME 

£ RER ÉTOILE 

GE : 114.74, 11786, 
3 122,194, 125.121, 
cr 95.121; 38, 142, 
3 144,53, 149,74, 
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A ETOILE 


À EM ÉOUGIE 





DATA 161,68, 141,128, 
; 113.74, 151.68. 
147.64, 197 4 ER 
114.49, 112,47 
11502: 115.58 
112.66: 114,68 
A 999,935 
EOLIGTE 
am MATEUH 
F3,54: 114,59, 
ER DER 
Fa 69: ra, 145; 
149,87 141.57; 
114,185, 114,69, 
95.79, CCENER 
93,95, 33,74, 
88,95; 35,95, 
CIRE TE 999.335 
CATA MAISOH 


Hombre 





DE MOTS 


de mots 






= 


PRE Lx) 


D ee pe OU D 
jé mir il 


PU 


M- -— 


= D GS I 


LE) ns } 


= NE RMEU 


F3 cf 


mike 
DDR 
DD Me Ji E 


ER: - 


Fi 


Ti 


- Dem 


113,126 
143,63 


145,54 
114.54 
114.62 





- momie 


ES 
" 
Lex 


ni ie CN A ui 


2 


ù —j M Cr 





e 

ga 
e 
mul 
= 
pur] 


in 


5 
î 
Ë 


es 
= Din 













DAURRX | & 


D D D D ND Bi 
DUR 


in 





=, 
st 


nee IQ ii Ua 
DS RMI 


Lx 
ni 


Din miñi 
AE ai 1] 


ï 


immense ER Re M Di Det De et et dt be A EN LE OI LÉ 


Si D im mi 


ii 


5 


SA M ee St D ON 1 Be L9 Pi fn me ii 0 M 
Si 


A 


En] x Hi Dire 


mL 
RE En 





FO Fe uen 


#9 © DS 


DT En Lo 


REA E LUE Lx] 


à AP<P:RESTORE 
FOR I=i TO F 






[a ef à Pres PROSEURE: 
CATA F! Gé 





INF, 8, 
CATA 83.121, 
C'ATA 147, 
DAT F4. 114 
CATA FEAT, 82147 Fa LE 
C'ATA 4. 
DATA 6115 118.113, 122,17 
CATA 114.113, 123,95, 144,95 
CATA FES: BE: 113 
DATA 399,993 
CATA ERCOLETTE 

Lecture dessin au hasard mx 






Fa LHTE FHDG 1 TÆEMMOT 3:1F FEAF THEM 5 
IF Fe THEH 


READ XV: IF X 


#29 THEH 934 ELSE : 
: READ MOTS 

MEXT I 

REM mme Affiche 


HIFE CIMEE 


Le] E 





338 THEH 1145 
MT DREAM 


AA 3 GOT 147 


Ar 


“P=# AE 
GOT 


Aer 
1456 
FEM- eee FRE OMIS 
READ MOTS 


LHPFUT Ho "RS 
IF FHeMOTS THEH FRIHT "OEM: GOT LEE 
GÜSLUE 1435 
IF Fe LENCHOTS 5-1 THEH FRIHT "La bonne orthographe est: "MOTS: 
1240 
FEIHNT "La bonne réponse est: MOTS 
MAIT SE 
GOT 344 
PEN ee nee Moi sinage de la FEPONEE meme 
F=f Horbre de bonnes Lettres 
FOR [ei TO LEHCES 0 

Cé=ehIDSc RS, TI. 10 

FOR Jei T0 LEHCHMOTS 

IF CéaetiOéé MOTS. 11 THEH Fsk+l:CGOTO 2654 


HET 
HE#T TI 


RETLIEH 
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Troisième partie 


GESTION 


52 PROGRAMME 


BIBLIOTHÈQUE EN DATA 


Des titres d'ouvrages sont définis en ‘DATA’. Afin de les éditer triés par titre, par auteur et par 
mot-clé, nous transférons les ‘DATAS’ dans des tables. 


TITRS$( ) AUTS( ) C1${( ) 


FREUD 
PINAUD 











MA VIE ET LA PSYCHANALYSE 
PROGRAMMER EN ASSEMBLEUR 






PSYCHANALYSE 
ASSEMBLEUR 


Z 80 


Q 
N 
æ 





Titres Mot-clé 1 Mot-clé 2 


La méthode la plus simple pour obtenir la liste triée par auteur consiste à faire : 


CLES( ) 


FREUD MA VIE ET LA PSYCHANALYSE 
PINAUD PROGRAMMER EN ASSEMBLEUR 





294 FOR LY=i TO HLY 

919 CLESLYOISAUTSE LUE" MATITRSELY 
228 HE4XT L'Y 

234 : 

244 REM TRI DE CLE&: 2 

94 : 


564 FEM EDITION CE CLESc : 


Cette façon de procéder présente 2 inconvénients : 
e La table CLE$ occupe une place importante. 
e Les résultats ne sont pas cadrés. 


Aussi, procédons-nous autrement : 
e Nous remplissons une ‘table des Clés’ CLE$() avec les clés à trier (noms d’auteur sur 
l'exemple). Dans une ‘table d’index’ IX(), nous rangeons les numéros de ligne (1, 2, 3...). 


) TITRS$( ) AUTS( ) 


MA VIE ET... 
PROGRAMMER EN. 
VIPERE AU POING 









3 
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e Nous trions les tables CLE$() et IX() 


TITR$( ) 


MA VIE ET... 
PROGRAMMER EN 


VIPERE AU POING 





Ces tables n'ont pas 
été modifiées 


e Après le tri, il suffit de lire la table IX() pour éditer les ouvrages dans l’ordre des auteurs. 


FOR Le] TO HLY 

“eat LU 

PRINT ALT 0, TITRES 4 
HEHT # 
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Bibliothèque en DATA 


19 FEM ET EIELIOTHEQUE EN CATA 

24 : 

25 CIM TITRSE 106, AUTSE 104%, C1$€ 108%. C24$€ 190) 
34 CIN CLESc 144, I 1645 


4 : 

54 DATA MA VIE ET LA PSYCHANALYSE. FREUD. PSYCHANALYSE ; : 

69 DATA YVIPERE AU POING, BAZIN; ROMAN; 

74 CATA FROGRAMMER EN ASSEMBLEUR, PINAUD., ASSEMBLEUR . 7ee 

84 DATA BASIC ET SES FICHIERS. EOIBOI: BASIC. FICHIER 
34 DATA LE BASIC PAR LA PRATIQUE, LAMOITIER. BASIC: *X 

194 DATA *# 

24 REMz=zzszzzsszszzs LECTURE DATAS EN TABLE =======2=2=== 


214 FÜR Lv=i TO 244 

224 :READ TIT#CLYAI:IF TITHLYDE"X" THEN NLV=LV-1:GOTO 278 
234 :READ AUTS&C LV, C1$e LV, Cage Li 

24% Ent LY 


318 CLS: PRINT "Modes :":PRINT 
324 PRINT SPCC 33; "LTITRE:Liste par titre" 
2534 PRINT SPCCZ Hi MLEOLE :Liste Par mot-cle" 


374 PRIHT:IHPUT "Mode "im 

364 IF M$="LTITRE" THEH GOSUB Sa 

394 IF M$="LAUT" THEH GOSUB 1@A8 

464 IF M$="LCLE" THEH GOSUB 1548 

454 GOTO 514 

494 FElMesssssssssesesesesesesz | ISTE TRIEE PAR TITRE =======222=2== 


2344 LPRIHT:LPRIHT "LISTE TRIEE FAR TITRE" :LPRINT:LPRINT 


514 FÜR Lws1 TO HLY 
524 :CLESCLYOIETITRSELYOD: TKE LYIELY 
324 MEXT LY 


34 HOCL=HLY: GOSUB 2465 | :REM APPel tri de CLESc ) 


fi 

f FOR Lei TO HLY 
A =T#C LM 

fi PRINT TITRSE 01: TABC 134350; 
A :LPRINT ALT #2 
A HEXT LY 

A : 

A RETLURH 

a PEMeszssssssssesssesses | ISTE PAR AUTEUR =2==222222=222s2zzsss 


1948 LPRINT:LPRINT "LISTE TRIEE PAR AUTEUR" :LPRINT:LPRINT 
1818 FOR LY=1 TO NLY 

1828: CLESCLY 3=AUTS#C LU: IXCLY )eLY 

1939 NEXT LV 

1949 

1454 NCL=HLV:COSUE 2408 :REM Appel tri cles 5 
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mm 
rene OS 
D SR -yJi 
nas ons 


Ci CL Co LQ CO MD me 


mr 
BR 
pu 
Lux 


1435 
1544 
1545 
1515 
1512 
1515 


LU Fe D Om 


RENE i À on 

FOR Lye1 TO HLY 

: #=IKELWO 

LPRIMT AUT#C 3 TAB 1741505: 
LPRIHT TITRSE 4 
HCL=G 

MEXT LY 





RETLIFH 


FElz=ssszsssesesesessezszz LISTE TRIEE PAR MOT-CLE =zsszssssesesess 
LPRIHT:LPRIHT "LISTE TRIEE PAR MOT CLE'":LPRIHT:LPRIHT 

HCL=A " Nombre de cles 

FOR Lyei TO HLY 


IF LEFT#éCISE LU, 17 UK" THEN MCLENCL +1 : CLES6 HCL 201$ LU Ix 


é HCL 3=LY 


1517 


IF LEFT#CCEHC LV), 1 €U4U THEN NCLEHCL+1 : CLES6 HCL H=eC2Se LU: T4 


“ HCL 3=LY 


1538 
1544 
1534 
1564 


157 


1584 : 


1585 


1539 : 


1648 
1685 
1614 


HET L 
GOSUB 2444 * APPel tri cleéc 


FOR Ly=1 TO HMCL 

H=I#CLY) 

‘IF CLESCLY-1 6 2CLESC LYS THEH LPRINT:LPRINT CLESc LYS: LPRINT 
LFRIHT TAB(C13+5:; 

LPRIHT TITRES 4 55 TABS 13+50@ :; 
LPRIHT AUTS6 #5 

HEXT L'Y 





1624 : 


1634 
1334 
cage 
2@it 
2913 
2617 
2424 
2436 
2448 
2450 
2G64 
2674 
2684 
2636 


RETURH 
FElM==esssesesesszsszs TRI SHELLeszzsszssess 
ECART=HCL 


ECRRT=IMTÉECART-253:IF ECART{1 THEH RETURH 


1=6 

FÜR I1=1 TO HÜL-ECART 

Je I+ECART 

:1F CLESS Ji: CLES Ii THEH 265 
:AB=CLESE I 2: CLEGS I 2=CLES( Li: CLESC =KS 
LAeTAC TE IKC TI OSIKE oi: TAC Jisk: Tue 

HEXT I ‘ 

IF IV=i THEH 2424 ELSE £41S 
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LISTE TRIEE PAK TITRE 


BASIC ET SES FICHIERS 

LE BASIC FAR LA FRATIQUE 
MA VIE ET LA FSYCHAHALYSE 
PROGRAMMER EH ASSEMELEUR 
VIPERE AU FOIHG 


LISTE TRIEE PAR MOT (LE 


ASSEMELEUF 
PROGRAMMER EH ASSEMELEUR 
EASIC 


LE EASIC PAR LA FRATIQUE 
BASIC ET SES FICHIERS 


FICHIER 

BASIC ET SES FICHIERS 
PSYCHANALYSE 

MA VIE ET LA FSYCHANALYSE 
ROMAH 

VIPERE AU POING 


FROGRAMMER EH ASSEMBLEUR 


ORIC POUR TOUS 


ECIEUI 
LAMOITIERF: 
FREUC 
F'IHALC 
EAZIH 


F'IHALUC 


LAMOITIER 
EDTIEQI 


ECIEOT 


FRELC 


EAZIH 


FIHALC 


14 REM INDE*# LIYRE 


a : 

38 DIM CLES(1285.PG$C 190 

43 : 

SG DATA F22, INPUT,  P£4,GOTO 
76 DATA P&7, IF; P31,FO0R 
94 DATA F42,LEH, P42,LEFTS 


119 DATA P43. RIGHTS, Fdd,MIDS 

139 DATA P45, ASC, P46.CHRS, P47,STRS, P47, VAL 

144 DATA P49,CONT, PS2, GOSUE, PS2, RETURH 

298 DATA X,%# 

BOQ REM mm LECTURE DATAS DAS PG&c ï ET CLES( )-—- 
318 FOR I=1 TO 198 

320 : READ PG$c I). CLES( 1) 

336 : IF PGSCID="#" THEN NM=1-1:GOTO 360 

349 HEXT I 

BSQ REM----- nee TRI 
368 1/=4 

376 FOR I=1 TO HM-1 

389 :1F CLES(I+1)=CLES I) THEN 480 

390 :4S=CLES 1 2: CLESC I >=CLESC 141 3: CLESC 141248: IV=l 
395 :HS=PGSC I D: POS I I=PGSC I] D: PGSC I+1 124$ 

488 HEXT I 

418 IF IV=1 THEH 369 

429 REM-----— nn EDITION ---- 
430 : 

506 FOR 1=1 TO HN 

514 :IF LEFTSCLERI-19,19= LEFTSCCLES 12,12 THEN 528 
515 :LPRINT:LPRINT LEFTS&CCLES( 1 3,12: LPRINT 

520 :LPRINT TAES 13430; CLESC I 2: TAEX 134120: PG& I: 

534 HEXT I 


fi 

ASC F4s 
C 

CHR# F4f 

CÜHT F4 
F 

FÜR F31 
G 

GOSUE PE 

GOT Pzd 
Ï 
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ANNUAIRE TÉLÉPHONIQUE 
(AVEC RECHERCHE 
DICHOTOMIQUE) 


Une recherche ‘séquentielle’ dans une table devient longue dès que le nombre d'éléments 
atteint 500. Si la table est triée, on peut retrouver très rapidement un élément par 
‘dichotomie’. 


NOMS$ TPH$ 


AADMI 
BACHELIER 


043 - 44-83 
044 - 20 -15 





Le principe est le suivant : 

On compare le nom cherché (‘CADROT’ par exemple au nom du milieu de la table. 
e S'il est plus petit, on en conclut qu’il ne peut être dans la seconde moitié de la table. 
e S'il est plus grand, on en conclut qu’il ne peut être dans la première moitié. 

Ainsi, nous divisons par 2 l'intervalle de recherche et en procédant de la même façon 
successivement, nous retrouvons très vite le nom cherché. 


AADMI INF AADMI 
BACHELIER BACHELIER 
CADROT CADROT 





e ‘‘CADROT est plus 


Maintenant. la recherche 
petit que MEUNIER" se fait dans la 1‘ moitié 
on élimine la seconde 

moitié 
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Annuaire 


14 REM AH] AHHLIAIRE 

24 

34 

4ë DATE AACMI. M4. A7, 83, ABIYEH, H43,47,7s 

Sg DATA AEOAF. f45,69.37, AEQU 643, 44,17 
68 DATA ADAM, GAS, ÉTÉ, AGLIÈERRE. dd, Gé, SE 
144 DATA BACHELIER. 43.25.96, BAESLER, 643,17, 34 
129 CATA CADEUT, 643,15,15. CAHAHIH.  &43,91,31 
158 CATA DA COSTA, @43, 36.92 DA FOCHAS, G44, 23,56 
169 DATA DAEO. H44.95,58, DAEQLIDET, @43,15,15 
984 DATA #.*# 

990 RENRS ESS EeSeess esse cecture, DATAS, essences sms 
395 DIM HOMSC SG, TFHSe SGA 

936 : 

937 CLS 


1884 FOR I=i TO 1444 

1914 :READ HOMS&CI 1, TPH$CI 

1824 :IF NOM#CI4="4" THEN HHzI-1:G0OTO 1144 

1922 :PRINT HOME TI 

1485 :IF I:1 THEM IF HOMSCT HOME I-1 THEH FRIHT:PEIHT "Hon brie": 


1938 MEAT I 

1444 STOF 

1190 REM---——— mm mme Recherche dichotomique —--— 
1114 PRINT: INPUT "'Horm "3: HOMS 


1134 INF =1 : SUP=HH 


1154 MILSIHTÉSINF4SUP 2-21 

1152 IF IHF?SUP THEH PRIHT:PRINT "H'existe Pas":PRINT:GOTO 1114 
1174 : 

1184 IF HOMS=HOMSCMILS: THEH PRINT:PRIHNT HOMSCMIL 5" Mi TPHEMIL OH: FRI 
HT:GOTO 1114 

1134 : 

1244 IF HOMS<HOMSCMILS): THEH SUP=MIL-1 ELSE IMF=MIL+1 

1214 GOTO 1154 
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FICHIER D’ADRESSES 


Sur l'exemple précédent, les informations (en ‘DATA’) ne peuvent être changées qu’en 
modifiant le programme. 


Le programme ci-dessous permet d'introduire et de modifier des données indépendantes du 
programme. Elles sont temporairement stockées dans une table à 2 dimensions FICH$(,). Elles 
sont ensuite sauvegardées sur cassette. 


TABLE FICH$( . ) 


EE 


Enregistrement libre 









Sauvegarde sur cassette 


LL ecsc [ 4 








Remarque : Ce programme peut être utilisé en définissant les adresses en DATA. Il faut dans 
ce cas transférer les DATAS dans la table FICH$(,) 


Tri-sélection 
Pour obtenir la liste triée des personnes d’une seule ville, il suffit de sélectionner les noms ainsi. 


5909 INPUT "Quelle ville ":V$ 
SA25 IF VSC>FICHS(F.3) THEH 5949 


Tri multicritères 
La liste alphabétique des clients dans l’ordre des villes s'obtient en faisant : 


2439 CLESCFO=FICH&CF, SG +FICH&CF, 1 


CLES( ) 
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Fichier d'adresses 


14 FEM ADF FICHIER C'ACRESSES 

15 GRAE:HIMEN KESFF REP ou HIMEN HSCFF 
EA : 

25 GOSUE AAA 

3 


(:] 
59 DIM FICH#6C 54, 4 
68 DIM CLES 9), IA 500 


70 REM=-——-— 
89 : 

94 CLS:PRIHT " MODES: ":PRIHT 

199 PRINT SPCCS93"C : Creation/modification" 
145 PRINT a : Liste fichier" 






196 PRINT SPCÉS SAULT : Liste fichier imprimante" 
119 PRINT SPC£S 5: "SAUY : Sauvearde casssette" 
12Q PRINT SPCCS OH: MLECT : Lecture cassette" 

134 PRINT : INPUT "Mode  ";:rnm$ 

146 IF M$="C" THEN GOSUE 244 

158 IF M#="LECT" THEH GOSUE 484 

164 IF Mé="SAUV" THEH GOSLIE 384 

165 IF M$&="LF" THEH GOSUE 1445 


174 IF Mé="LFI" THEH GÜOSUE 2444 

175 IF Mé="LFH" THEN GÛSUE 4@ff 

176 IF M$="LFY" THEN GOSUE 5484 

177 IF M$="£5" THEN GOSUE 5234 

184 GOTO 4 

194 FRElzzsssmesemeesmenmezsz CREATIONMH-MOCICATION amuse miens 
264 PRIHT:PEIHT "Mom? "5 :GOSUE SGGA:IF LIGéz"" THEM RETURH 
214 #$=LIGS:LeLENMC ES 0 

224 : 

234 FOR RAHGE1 TO 54 

235 IF FICHS RANG, 1 = MU THEH 284 


CIF FICH#ERANG, 132 "4" THEM 264 

IF HS=LEFTSC FICHE RANG, 12L: THEH 334 
HEXT FAMG 
STOF 


PRINT: FRINT "Rangement: "5 RANG: : INPUT 'Houveau mom CO/Hi "RS 
IF F$gé:"0" THEH 266 


1) 
6 
f 
ñ 
5 
A : 
A RE --- Mouveall rom 
ñ n 
(] 
A 
G FICHE RANG , Luz 
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324 REM---- 

325 PRIHT 

334 PRINT FICHS&ERANG, 25; 

332 #=15-LEMÉFICH#EFANG, ZOS:IF 4534 THEM PRINT SPC 3 

335 PRINT "RueT "i:GOSUR SAGG:IF LIGS< SU" THEN FICHS&CRANG, SieLIGS 
336 : 

344 PRINT FICHS&ERANG, 3053 

342 #el5-LENC FICHES RANG, 30: IF #20 THEH FRIHT SPC 5 

. PRIHT "Ville? ";5:GOSUR 2@G0:IF LIGéé:"" THEN FICHS$CRANG, 3 2eL1GS 
346 : 

394 PRINT FICHS&ERANG, à 3: 

352 A4=15-LEMSFICHSÉRANG, do: IF 4534 THEH FRINT SPC à 

354 PRINT "Crosté "i:GOSUE ZAGG:IF LIGHé2"" THEN FICHSERANG, die TGS 
369 GOTO 244 

374 REMeszassssesesssessensesz CALUVEGARDE =sssszssmesesezeseseneses 
A PRIHT:PRIHT "APPUYER SUR <RECORD: PUIS £RETURH "GET «4% 

444 PRINT "SAUVEGARDE CASSETTE": HAIT 346 

414 POKE H6V. A: CALL 1424,FICHS 

424 : 

464 RETURH 

461 : 

462 

463 

464 : 

d47Q REÉl==szszsssessssssesessse LECTURE 

454 PRINT:PRIHNT "APPUYER SUR <PLAY> PUIS <RETURH: M:GET #4 

485 FRINT :PRINT "LECTURE CASSETTE" :FRINT 

494 : 

Ssaû PÜOKE #ér.6 

514 CALL 1427,FICHS# 

528 : 

530 : 

564 RETUFH 

990 FREÉM==zzszszssssesesesessseses LISTE FICHIER 222 

1894 CLS 

1914 PRIHT:FRINT "LISTE OÙ FICHIER: '":FRINT 

1824 : 


1434 FÜR F<1 TO 1464 

1946 :IF FICHS&CF,19="" THEH 1244 

185 :PRINT FICH&F, 15: 

1864 :K=13-LENCFICHSCF. 199: IF 454 THEH PRINT SPC EH 
1974 :PRIMNT FICH&F,2 5: 

118€ : PRINT 

1194 HEXT F 

1204 PRINT:PRINT "APPUYEZ SUR <RETURHS":GET #%$ 

1214 RETURH 
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ee FEMzsessessssssesesssseses LISTE FICHIER IMPRIMANTE = 
2914 LPRINT:LPRIHT "LISTE OÙ FICHIER" :LPRIHT 

2424 : 

2434 FOR F=i TO 1564 

2644 :IF FICH&CF, 11e" THEN ZA 

2454 :LPRINT FICH&CF , 15: 

264 :LPRIHT TAC 13+15 0: 

2474 :LPRINT FICH&CF, 20: 

2484 :LPRINT TAB 15+35 0: 

2494 :LPRINT FICH&IF,3 5: 
2148 :LFRINT TAB 13455 5: 
2114 :LPRINT FICHSIF, 4: 
2184 :LFRIHT 

2134 HEXT F 


# 








. 
cé à RETURN 
A En REM eee INPUT AVEC KHEYS ——- 
3494 LIGS$s"" 
3614 : 
3444 CH<EEYS:IF C="" THEN 3544 


3954 CeASCE C6 3: LeLENME LIGS 
38064 IF C=13 THEH PRIHT:RETUREM 
39E6S IF Cér127 THEM 3144 

3974 : 


3489 IF Loä THEH LIGSSLEFT#(LIGS, L-1 PRINT CHR&C LEFT 33: GOTO 3644 EL 


SE 344% 

3936 : 

3164 IF CESZ THEH FIHG:GOTO 3@4f 

2114 LIGS=LIGS+CS: PRINT CS; 

3126 GOTQI 354 

3139 REM------—- 

3994 REM==sesssessss LISTE FICHIER TRIEE FAR HOM === 
444 : 

4414 FOR F=i TO 1464 

4@24 :IF FICH#F,13="" THEN NF=F-1:G0OT0 4144 

4834 :CLESEF SFICHSCF 1 IC Fier 

4@4ä HEAT F 

4454 STÛP 

4964 : 

4198 GOSUE 4594 ‘ APFel tri 

4145 

4116 :LPRINT:LPRINT "LISTE TRIEE FAR NOM: ":LPRINT 
4124 FÜR Fai TO WF 

4134 :#=IXCF 0 

4144 :LPRINT FICH&E 4, 1 3 TABC 1341: 
4154 :LPRINT FICHGC SH, 3 TAES 15435 
4194 :LPRIHT 

4244 MEXT F 

4214 RETURH 


LA 
"| 
0; 
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4434 
454@ 
4545 
4514 


REM----—-— TRI SHELL 
ECARTEHF 


ECARTSIHTÉECART-2 53: IF ECARTE1 THEN RETUFH 


4515 : 


4524 
4534 
4544 
47534 
4533 


1'/=@ 

FOR I=1 TO HF-ECART 

: Je I+ECART 

‘IF CLEGC ie CLESC I) THEH 436 


ct 
HB=CLESE I 1: CLESE I =CLESE Ji: CLEBE mé: me Le I nc: Le I'm Ju: IA 


L Jisk: IV=1 


4569 
4574 
4694 
4994 
5699 
saia 
5424 
5436 
544 
5454 
596 
51084 
5145 
5114 
5124 
5139 
5144 
5154 
5199 
5244 
5218 
S22A 
5234 
ne 
525 
See 
s2rA 
SeSA 
Sea 
s3a4 
Ed 
5414 
Sd24 


62 


MEXT I 
IF IW=1 THEN 4524 ELSE 4514 
4 


REl===es=nnnes LISTE FICHIER TRIEE FAR VILLE === 


FOR F=1 TO 1886 

IF FICHSCF,15="" THEN HF=F-1:G0TO 5144 
:CLESF2=FICHSCF. Be IHCF er 

NEXT F 

STOF 


GOSUE +544 " APPel tri 


LPRINT:LPRIHT "LISTE TRIEE FAR YILLE":LPRIMT 

FOR Fai TO HF 

ASTALF à 

LPRIHNT FICHS&E x, 30: TABC13+15 1: 

:LPRINT FICH#E SX, 1 33 TABC 13435 5; 

:LPRIHT 

HEXT F 

RETURH 

REMsenss=ssssssssecsesessess-sesensesez SI IF PRESSION sessszssess 


FRINT:PEIHT Homt "oi: GOSUE SAGA:IF LIGée"" THEH RETURH 
1 HOMSELIGSE 

FÜR FAHG=1 TO 34 

CIF FICH&C FANS, 1 HMS THEH 5fli 

HET FAHG 

PRINT: PRINT PHEXISTE FAS":PETIHT:GOTO 524 


LHPL IT "SuPpPression OK OH "ir 


IF Rg="O0" THEH FICHSÉRANE, 1 eg" 
GOT Sd 


ORIC POUR TOUS 





19994 RE FOUTIHE SAUVEGARCE-LECTURE TABLE -—- 
13935 FRET Cf revus ORIC seFtembre 1885 ou Frogramme ORIC BASE 
13396 : 

24444 CLS: PRINT MATTEHCEZ" : FRIHT 

2aûas A<#BSOA: REC C$ 

24414 FOR Izi TO LEHCDS: STEF & 

SAGE © MeWALEMHMANMIDSE DS, I, EU: POKÉE A: V:ASAHLIHEMT I 


34 REAC D$:IF Cfis"Z" THEH £GA1H 
2aa4ñ CÛKE #449,#AA4C:DOKE #44, #4CES: COKE #4f4,#EBSE 
cagd4s RETUEH 
LA454 DATA 5555 9000232394 436305 SEAABBSGETATÉBSLABAEEASLSSACEESASEZZA 
CÉESAS Ad EE 

A4 F 






2AGÉG DATA CÉESSGEEESIAATESZ 4261 GATE ASSESZGA4ESZSEGAMAGE 14 1F ETF ARAE 
4261413304 
24874 DATA AG8SDGFSESCAF ASE C1 LACSESCEOAFSLACIEGIGDES AS AGSOSESGUBES 
ASZACUÉéBSEA 
24484 DATA SÉEÉEGSGEECHESDOF SLOGAN ISSASAERESSAAQULEICECSSSCSHE1CE 
ES24BAGE ZA 
260994 DATA AdESA4CESCA4LHEEEERZQEERE 424261 AASSASEESSGAA4ESESÉAAGAGElS1FE 
1C2AF @D4fAA 


260109 DATA ESAGOGGCAFAGSZASAESS 1 C1 CECAF SABLES A1 SECTGFSLACSEESE 
D36418A343 
29118 DATASSGIR SO 1AGSAGZERAZASAECAÉ ESS LÉ GEACAERL GI SEGAGESE 1 CEAASSE 
1CEE39180 

A ÉLASCFÉ TI 4SSÉLAGAAET CELAF 601 ESS 
F34698591 
20134 DATAR4G2EG2GESGGCIECF ABSA4CEACF ACELAGALAALAERAQSELTESSESLAESGAE 
G86D1B066 
26144 DATA2GBG4ESACEA4CFASAAREEZ 
48601B4F6 
29154 DATAC324D0B6A9FFESSSDAQCCAZSCOQFANSASSZIQSE dESESSAAISAAALGELZE 
DE6ESA6SE 
26164 DATARSSFRECESSCFCSA1CAG4E4AGF G1FABABGE 1 CECECSEATAREASESC I CEF HE 
EC8B1CE18 
26174 DATASSCERACSE1CERSCF 300 7 SE GQRA4ESALERAL ES CAS 
29186 DATA Z 
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GESTION D'UN PSEUDO FICHIER 
EN MEMOIRE CENTRALE 


". enregistrement 


CODE LIB PRIX STOCK 


Éesep |. 0 


FICHS (2.1) TABLE j" si 











Fichier 
séquentiel 


Ce programme permet de définir en mémoire centrale un pseudo fichier sauvegardé dans un 
fichier séquentiel. 

La définition des rubriques, faite de façon conversationnelle, est sauvegardée avec le fichier. 
Créations, modifications et suppressions sont gérées automatiquement. 


Liste triée : 
Pour obtenir une liste triée, il suffit d’écrire : 


ID$< 1 2="CODE" : ID#e Zi" PRTE" “ Homgs des zones a editer 
PTRI=1 ‘ Position tri 
GOSUE xxx 


Des programmes d’application peuvent être ajoutés à la fin du programme standard. 
e Le mode ‘VAL’ donne le total des stocks 
e Le mode ‘TS’ trie le fichier dans l’ordre des stocks 
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Remarque : Pour le sous-programme de sauvegarde cassette (20000), voir le programme 


précédent. 


FLIH 

+ 

Mode LESC 
nd 

Han rubrique? 


TyPpeT 
Longueur + 


Description 
des zones 
du fichier 


(al 
L DE} 
ra 


Hom rubrique 


Ham rubriques 


Made y 








CODET CADRE 
LIE? 

FRIXT 2209 
STOCK? 


12 
or 


STOCK 
He 


La, 


# Fin de description 


CADRE?S, 10 y 


COLE? 


Mode’ L 


LISTE DU FICHIER 


CACRE 
SELLE 


CADRE 
SELLE 


a. 15 
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Gestion de fichier 





19 FRENM FMEM GESTION CE FICHIER 
15 : 

16 GRAE:HIMENM #ESFF :FEM ou HIMEM #95 
26 GOSUE 2aaa 

21 S 

26 DIM HRUESC 14, TrP$c A, LG(135 

26 : 

34 : 

4ë 


50 HFICH=A 


55 LGi113=HFICH 

EX : 

F4 RENM LME TABLE À € DIMEMSIOHS FICHSCHFICH,HRLE 1 COMTIENT 
84 REM CAS CHAQUE ‘LIGHE‘ UNE ‘FICHE’ 

34 KEM CETTE TAËLE EST SAUVEGARDEE SUE CASSETTE 

184 : 

119 FKENM HFICH : MÜMERE CE FICHES 

124 FREN HALIE : NOMBRE DE RUBRIQUES 

124 REM MALE : MAXIMUM CE FICHES 

14 REM HELIES$C à : HOMS DES RUBRIQUES 

179 REl=ss=sszssesssessssssesesses MENU sesssesmssesesemessezs 


134 CLS: PRIHT "MODES: ":FRIHT 
264 PRINT SPCES 3 "DESC : DESCRIPTION FICHIER" 
218 PRINT SPCCS 3; "VDESC: WISUALISATION CESCRIPTIOH" 


212 PRINT SPCS UC : CREATIOH-MOCIFICATIOH" 
214 PRINT SPCS ML ‘ LISTE FICHIER" 


216 PRINT SPCCS 2; "SAUT : SAUVEGARDE FICHIER" 
224 PRINT SFCCS :"LECT : LECTURE FICHIER" 
225 PRINT SPCES "SES : SUPPRESSION FICHE" 
234 PRIHT:INPUT "MODE ":M$ 

244 IF M$="DESC" THEH GOSUB 374 
254 IF Mé="VDESC" THEH GOSUE 584 
260 IF H#$="C" THEN GOSUE 76@ 

270 IF M$="SAUV" THEH GOSUE 1134 
289 IF M#="LECT" THEH GOSUE 1264 
294 IF M$="L" THEH GOSUE 1445 
386 IF M#$="LT" THEH GOÜSUE 1576 
319 IF M#&="S" THEH GÜSUE 9394 

324 IF M#="VAL" THEH GOSUE 2194 
334 IF M$="TS" THEH GÜÛSUE 2274 
344 GOTO 134 
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354 FEM==z=sz2sssesssssessssesss DESCRIPTION RUBRIQUES sz2zs 
364 : 

378 PRIHT 

384 IHPUT "HOMERE MAXI DE FICHES "5MFICH 

385 DIN CTRIHIMPICH 4, LC MFICH à: FD 

294 PRINT 

48 FOR Izi T0 1% 

414 :PRINT:PRIHT "Hom rubrique: "3 :GUSUE 3464 

415 :IF LIGH="" THEH HEUE=I-1:CIM FICHE MFICH, HEURE 2: RETUREH 
424 : HARUBSS I =LIGS 

+39 IHPUT "Type pub éCichaine-H:nameriqueï "ik 

44 IF Ages "C0" AND ASS 2UHN THEN 454 

454 : TYP#CI 1=4$ 

4Ëëf IHPUT Longueur "ii 

474 : LGIi=# 

484 MEËXT I 

435 PRIHT 

435 PRINT "APPUVYEZ SUR <RETURHS M:GET #$ 

Sag RETURFH 

514 : 

524 

334 

TA 

5928 

559 : 

569 RElMzssseesecescescssss VISUALISATION DESCRIPTION =2s 
574 : 

584 PRIHT:PRINHT "DESCRIPTION DES RUBRIQUES": PRINT 

5934 FOR I=1 TO 14 

EG IF HRUBSCI DES" THEN PRIHT HRUBSCT 5, TPE I M LG I 5 
614 HEAT I 

615 PRINT:PRINT'APPUYER SUR <RETURHÈ'":GET x% 


629 PRIHT:RETURH 

64 : 

654 : 

694 FElzsszsseesoseessesesese CREATIONH-/MOCIFICATION sezezz 
64 : 

F62 PRINT:PRIHNT "En mode modification, aPPuuer sur <RETUEHS " 
793 PRINT "si la zone ne change Pas": PRINT 

F4 PRINT MR: retour zone arriere": PRINT 

45 : 

714 PRINT:FRINT "'Homt "3: GOSUB 3AGG:IF LIGés"" THEH RETUREH 
Ten #$=LIGS:LELENCXS 

Fan : 

v4à FÜR Iz1 TO HFICH 

745 IF FICH&CI.12="" THEH FER 

FSA :IF HSSLEFTÉR FICHE TI. 12 L THEH RANGSI : GOTO 854 

F68 HEXT I 

763 : 

Fr@ FRINT 

789 INPUT "HOUVELLE FICHE CH MR 

785 IF R$<:"0" THEH 714 

734 FOR 1z1 TO HFICH 

SG@ :IF FICH#&CI.10="#4" THEN RAHGST:GOTO 544 

819 HEXT I 

829 HFICH=HFICH+1 : RANGEHFICH 

24 FICHSERANG, 15=x$ 
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68 


mo cn 


D © D D D 6 oo 
DH D JDE 


1398: 


\D D 
re (TD 
RARES 


à 


DUR: 


mors LD ED 0 9 QU) UD ED AD 10 


DS DD D IJONNNAMERIUN 


- 
L 
D 


Ve SSDOMTe QE 


ET EUX EL 


GOSUE 4484 ‘REM QU GOSUE 74 

GOTO Fi 

REM SAISIE 

PRINT 

FOR I=£ TO HRUE 

PRINT MRUBSCT 1: SPC GLEN MRUB@C I 15013 FTCHSE RANG, I 

:PRIHT SPC 1S-LEMCFTICH$&E ANG, TI 4015 

:GOSUR S4GG:IF LIG$="" THEN 348 

IF LIG#="R" THEN IF 122 THEH Isl-1:GÜ0T0 9464 
FICH&E RAMG, I ELIGS 

HET TI 

FETURH 


FRIUT:IHPUT "HOM CFifinn "iagiIF “$e"F" THEH RETURH 
LeLEMC#S 


FOR I=1 TO HFICH 

IF XS=LEFTSCFICHSC I, 12L2 THEN RANG=I:COTO 1460 
HET 1 

PRINT:PRINT "H'EXISTE PAS":PRINT:GOTO 39% 

INPUT MAMMULE OK CON) "iRS:IF R&<>"0" THEN 390 


FICHS&CRANG, 1 = Ua" 
GOTA 334 


£, LEMSesuresrsse SHUVEGARDE FICHIER sesesemesomme 


PRINT "HFFUYER SUR RECORD: PUIS £RETUREH3 " 
GET #5 


1 PRIHT SAUVEGARDE CASSETTE": PRIHT:MAIT 244 


POFE #67. 


LG 11 2=HFICH:LGE 12 3=NRUB : LG 13 2=MFICH 
CALL 1424, LG 
FRIHT M"LOU:HAIT 49 


CALL 1924, HRUES 
AIT 344 
CALL 1924, TYPS 
AIT 394 
CALL 1424,FICHS 


PRIHT:PRIHNT "SAUVEGARDE TERMIMNEE" : PRINT 
RETURH 
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9 Lo Co Co Ro M) Pa Po 


Demo SuCJM 
TE Ti CN Gr DS 


FElasessesessesssesesessessss [LECTURE FICHIER sssssasss 
FEIHT:FPARIHT "AFFUYER SUR <FLAY PUIS <RETURH% 

GET #%$ 

FRIMT MLECTURE CASSETTE" :PRTHT 

FPOKE #67, 6 

CALL 1HE27,LG 
PEIHTULGMS:METCHELGE 11 1: HRLIBSLGE LE 0 MF TCHELGC LES PRINT LG 110 L 
33 LG 130 

IF Füsf4 THEN CIM FICH#&CMPICH, HRUE 2, CTRISEMPICH 1, L'été MF ICH 5: Fe 


| CALL 1427, NRUES 
» PRINT HRUES 1 9 
CALL 1827, TYFS 


335 CALL 1927, FICHS 


mmbmbhb he Es be Qi bei he paie pa 


FRIMNT:PRIHT "LECTURE TERMIMEE":FAINT 


à IDCi)=l:IDCZ)eS 
GOTO 1484 


54 RETURH 


% PRINT: PRINT "LISTE CES FICHES": PRINT 
A FÜR Ie TO HFICH:IHXE IST: HET I 
GOSUE 15354 


14 RETUFH 


A RElassesesesesesesessess [LISTE TRIÉE LES FICHES zsszss 
IDgé 1 = "CODE" à: Dé Ze PRT ANS: IDE SE I="ESTOCK" 


FTRI=1 " Fogsition tri 
A GÜSUE 1624 
RETLIFH 


A FOR Ii TO 16 
‘FOR R=1 TO HAUE 

IF IDC TI eHRUBSCR 3 THEH ID Ter 
:MEXT K 


G6@ HEXT I 
584 FOR I=1 TO NFICH 


CTRISÉ I SF ICHSE LT PTAI di LHC Tel 
NEXT I 
GOSUE 1394 


PRINT:PRINT "LISTE TRIEE DES FICHES": PRINT 
GOSUE 1829 
RETURH 
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174Q REM-- SPGM EDITION ECRAH 

1856 : 

1866 : FOR F=1 TO HFICH 

1874 : 

1884 : Fisl4ACF 

1885 : PRINT "I": 

1896 : FOR R=1 TO HRUE 

1984 : IF IDCR2=G THEN 1958 

1919 : PRINT LEFTHCFICH& F1, DCR 52, LGC IDR Où: 
1915 :  #=LGCIDORID-LENCFICHSCF1, IDR IOU:IF K°9 THEN PRINT SPCCX 
1917 3  PRIHT "I"; 

194G : HEXT K 

1959 : PRINT 

1364 HEXAT F 

1974 PRINHT:PRIMT "APPUYER SUR €RETURHS ":GET #% 
1975 RETURFH 

1989 REM----- TAI SHELL-METEHER 
1394 PAS=HFICH 

2496 PRIHT:PAIHT "JE TRIE FOUR VOUS" :PRIHT 
2614 : 

2424 PAS=IMTEPAS-ZI:IF FASEL THEH RETUREH 

2639 .J=1:K=HFICH-FHAS 

244 : 

2454 I=.l 

2064 : 

24aF4 LeI+PAS 

2484 IF CTRISCIHECTRISIL) THEH Z128 

2498 #$=CTRISE LI CTRISE L ISCTRISE I M CTRISGE I = 
SAS HeTKACL 1: TARA L Ie THAC T1: LE TEA 

2144 I=I-PAS:IF I£1 THEN 2124 

2185 GOTO 2478 

2114 : 

2124 JeJ+i:IF Jèk THEH AE 

2125 GOTO 2454 

rir4 REMazzsssssesessse WALORISATIOH STOCK sesessesesemus 
2184 : 

2198 TT=fA 

2244 FOR F=1 TO HFICH 

2214 :TTETT+YALE FICHES, 53 1 EMALCFICHS&CF , di 
2224 HEXT F 

2234 PRINT:PEINT "TOTAL STOCK: "TT 

2235 PRINT:PRINT "APPUYEZ SUR £RETUREMS M:GET x%$ 
2244 RETURH . 

LagA REMassssssessssess INPUT AVEC KEYS azzsx 
3644 LIG$="" 

3844 CH=EETS:IF C&e"" THEN 344% 

3454 CeASCE CS: LeLEHCLIGS 

3464 IF C=13 THEH PRIHT:RETURH 

346 IF C<512% THEH 3196 

367% 

ts L:4 THEN LIGS2LEFTSILIGS, L-1 5: PRINT CHRSC 127 3: GOTO SA44 EL 
SE 244% 

3494 : 

3144 IF C<232 THEM FING:GOTO 364 

3114 LIGH=LIGS+CS: PRINT Cé: 

3124 GOTO 644 
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SAISIE ÉCRAN AVEC KEY$ 


La saisie d'informations à l’aide d’une suite d'instructions ‘INPUT ne permet pas, en cours de 
saisie, de se positionner sur une zone arrière qui aurait été mal documentée. 


14 IHFUT "Hom "3: HOMS 
28 IHPUT "Rue "RUES 
38 INPUT "Wille"; VILLES 


ELH 


Hors CUFOHT- 
FEueT FLE Bue HALE Rue _HAUBEL 
Millet MOHTIGHY 


Nous proposons ici un sous-programme qui permet de modifier des zones mal documentées. Il 
est utilisable avec le programme précédent. Une table NRUB$ contient les noms des zones à 
saisir. Le résultat est rangé dans une table FICH$ (RANG)) 


NRUBS 


Hom: CUFC HT 
Fuge: 11. rue HOÉEL 





Ville: 


POUR REVENIR 
SUR ZONE ARRIERE FICHS$( . ) 


ee 
Poron fn mener | 
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Saisie écran avec KEY$ 


s121 

312E 

3123 

3124 

2994 FElM==zzzsssssszessesesesz SHISIE ECRAN HOZ =zz= 
4444 : 

4814 CLS 

4915 FLOT TS Pour zongs arrieres" 
4429 FÜR L= TO HARUE 

4834 : FLOT 1:L+1, HRUES6 Lo 

493% : PLOT 15:L+1.FICHS$CFANG, L 5 

4ñ4f : 

4166 HEXT L 

4110 REM----m eee nomme SAISIE CES ZOHES -- 
4124 FOR P<2 TO HRUE 

4134 : 

4144 :AL=15:"LEPF+1 

4145 :GOSUE 5994 

4164 :IF R=1l THEH FICH#ERANG.F'eLICSé 
4174 :IF K22 THEH 424% 

4184 :IF R=3 THEN IF F1 THEM PLOT LL: FICH#&ERANG. FicFepPe 1: GOTO 4 
145 

4284 : PLOT #L.:YL :FICH$CFANG. Fi 

4245 HEXT F 

4214 FETURH 

4998 RENM-----—-— 5. Saisie d'une ligne 
Sagg LIG$="" 

Sa14 : 

sa24 LELEN LIGS 2 : FLOT #L+L."L.132 
5934 

5a4 C#=k CEYS:IF C$é="" THEH 5444 

2454 CEASCC CS 5: LeLEMÉLIGS) 

5985 IF Cs13 THEH 514% 

SAéA : 

Sgé1 IF Ceii THEH R=3:RETURH 

5965 IF C<i127 THEH 5144 

sara : 

5684 IF LA THEH LIG#=LEFTSELIGS, L-12:PLOT #“L4L,YL." ":GOTO SASA EL 
SE 544% 

5994 : 

5149 IF C£3Z THEH PIHG:GOTO S5G4n 

5114 LIGS=LIGS+CS:PLOT LL, TL, LIGS 
5129 GOTO 5924 

5139 : 

5149 PLOT api Lt 

5158 IF LIGg<:"" THEN Rzi ELSE FR=ë 
5164 RETLRH 
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ÉDITEUR DE TEXTE 


Editeur de texte 


Ce programme permet de saisir et de modifier un texte. L'image de l'écran représente le texte. 












Table LI$( ) 
LI$ (1) 
LI$ (2) EXEMPLE DE TEXTE H 
LIS (3) a 
EXEMPLE DE TEXTE 
LI$ (4) 








Sauvegarde sur fichier séquentiel 


2.2.82 Î EXEMPLE DE TEXTE I S 








L'insertion de caractères dans une ligne se fait immédiatement dès la frappe de ceux-ci (il n’y a 
pas de mode insertion). 

Des caractères spéciaux sont prévus pour la suppression de caractères, la suppression et 
l'insertion de lignes. 

22 lignes de texte seulement peuvent être visualisées à la fois. Les caractères ‘!” et “‘’ déplacent 
la partie de texte visualisée vers le haut et vers le bas. 


(Le sous-programme en 20 000 figure à la page 63) 
BL —+ 


EXEMPLE DE TEXTE 
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Editeur 


14 FEM ECT ECITELIF: 

15 : 

24 GOSUE 264496 ‘REM Four sauvegarde cassette 
25 IHE4 

26 PRINT CHR 17 5 :REM SuPPression curseur 
44 CLS:PRIHT "EDITEUR FLEIH ECRAN":PRIHT 

SG PRINT " 4 fleches Pour se deplacer" 

64 PRINT " DEL Four effacer Un caractere" 

79 PRINT " CTRL A Four sauveñarde 

F5 PRINT " CTRL E Four edition imPrimante" 

89 FRIHT "1! décalage Haut" 

34 PRINT " décalage bas " 

144 PRIHT " @ insertion ligne 

155 Cé=""iCsgiLige""iLeg:FC=G 

144 DIM LI$ 545 

154 

174 PRINT 

184 INPUT M'Houveau texte COM "RS 


185 IF F$="0" THEH CLS :GOTO 164 
194 CGOSUE 244% 


192 CLS 

193 FOR LIisi TO ZE 

194 : PLOT 1,LI-1,LI&LI: 
196 RER LI 


344 B1= 1'B2=22 


314 FCz1 :REM Fogsition curseur lignée courante 


326 FOR LISE1 TO EE 


344 IF LISMX THEH MxaLT 

264 :LIS=LISE LI :GÛSUE 564 

364 :PLOT 1,LI-E1,LI$+" " 

Crai LISCLIDELTS 

384 :IF K=Z THEN IF LIÿ1 THEH LI=LI-1:GOTO 349 
385 :IF R=2 THEH IF Lléz1 THEH 344 

399 :IF Ke THEH IF LISEZ THEH LIsLI+1:GOTO 34f 
395 :IF K=3 THEM IF LISEZ THEH 344 

396 :IF R=<14 THEH GOSUE 3184 

498 FEM-----— Aiout 1 ligne 

419 IF Kid THEH 429 


415 :FOR I=Mx TO LI STEP-1 LISE I+1 ELITE TO MEAT T'LIgLIHe"" 


416 :CLS:FOR I=E1 T0 BE 
417 :PRINT LIgIi 

418 :MEXT I 

419 :Ma=Ma+i:GOTO 344 


424 : 

444 : REM-----—— Sauvegarde 

459 2 R=é THEH CLS: GOSUE 3464: G0OTO 13% 
dé REM----——— Decalage bas 


4ra RTE Fi?r THEN 454 

75 :E1=B1+1:B2=B2+1:CLS 

4P6é :FOR I=61 TO B2:PRIHTLIS IH :MEXT 1 
47r :LIsLI+1:GOTO 349 
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et Decala%e haut 
{+8 THEN 524 

95 :IF Bi<=1 THEN 349 

496 :F1=E1-1:E2=82-1:CLS 

437 :FOR I=B1 TO BZ:PRINT LISCIO:HEXT I:LIsLI-1:GOTO 344 






544 MEAT LI 


ST RE Saisie d'une ligne 


594 IF PCLEMHILIS: THEH PCELENCLIS +1 
644 IF LI$="" THEH PCzi 


624 PLOT PC:LI-E1,132 


£a CS=KEYS 
645 IF C$="" THEN PLOT PC, LI-B1.MIDS(LIS.PC.12:GOTO 628 


AS 
LE 


i£Q 
me. 


eee 

\27 THEH 64 

1 THEH F22:RETURH 

4 THEH R=3:RETURH 

É8A IF C<S THEH 334 

FREM---- Effacement caractere 

IF Cé127 THEN F1 

IF éL-PC+1=9 THEH 64 
LISELEFTSELIS, PCT O+RIGHTHELIS, L-FCS:PLOT 1,LI-B1,LIiS$+" ":GOTO 


NTNTUHN 


L 
662 I 1 
IF C=i 
IF Cas 


REM--- Curseur droite 
IF C=9 THEM IF PCéeL THEH PLOT PC-6, LI-B1.MIC0S#eLIS. PC, 1 :PCSFC+ 


D = En M M 


- Nemmaewin gs 
DD nmAnS 


785 IF C=9 THEM IF FC%L THEH 648 

F34 REM-- 

TER IF C1 THEH Raï :RETURH 

Fr4 IF Czéd THEH Rsd:RETURH :REM &E aiout ligne 
= THEH R=6:RETUEH :REM Sauvesarde 

2 THEH R=14:RETURH 

3 THEN REF:RETURN :REM ! bas 

234 THEN RSS :RETURENH :REM ‘ Haut 









C 

L 

IF C 
C= 
Ces THEW PRINT CHARS 17 51: EC 

IF C£SZ THEN 644 

REN-----caractere normal concatene 

IF L:36 THEH 644 

164 LIS=LEFTSCLIS, PC—1 2+CS+RICHTSELIS. L-PC+1 2 

8rg PLOT 1,LI-E1.LI$ 


TG 


0 QG Où Jr 
Enr mDuat 
DDR RE ES. ETES | 

+4 
a: 


ma 


364 FCsFC+1 
314 GOT 624 
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924 REM---85 

93 IF FCé=1 THEH 649 

944 IF PCÈL THEN PLOT FPCLI-E1," " 

954 PLOT FC-H,LI-B1,MID#(LIS, PC. 15 

364 PC=PC-1 

978 GOTO 624 

1994 PREMzzzssssesesseeesssses | ECTURE CASSETTE === 


2484 PRINT:PRIMNT "APPUYER SUR éPLAY> PUIS £RETURHÈ":GET 


2619 PRINT:FRIMT "LECTURE CASSETTE": PRINT 

2624 POKE #67.@ 

2934 CALL 142F,LI% 

26944 : 

2454 RETUFH 

A6 : 

2861 : 

2BÉE : 

24H63 : 

2464 : 

2465 : 

LEE : 

2B67 : 

2999 REMzzzzzzzsssszszzzzzszz SALIVECGARDE CASSETTE =zzzxx 
36064 PRINT : PRINT "APPUYER SUR <RECORDS PUIS <RETURHE "à 
3414 

36264 PRINT PRINT "SAUVEGARDE CASSETTE" :FRINT 
3934 : 

3ä4@ POKE #67. 

3445 AIT 264 

3954 CALL 1924,LI% 

3068 RETURN 

3098 REM=======z=szezssz EDITION IMPRIMANTE =zzzez 
3198 LPRIHT 

3118 FOR Lei TO M4 

3124 :LPRIMT LIL) 

3139 HEAT L 

3148 RETURH 


# *_ 3% 
X OK KHK  % + 
REX HE 4 
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COURRIER PARAMÉTRÉ 


Une lettre standard est définie en ‘DATA’, ainsi qu’une liste de destinataires. 

Le programme personnalise cette lettre pour chacun des destinataires. 

Nous lisons d’abord la lettre définie en ‘DATA’ dans une table TXT$() puis pour chaque ligne 
de la lettre, nous remplaçons les paramètres entre <> par les valeurs réelles de chacun des 
destinataires. 


TXT$( ) 





















Monsieur DUPONT 
12, rue xxx 


RENNES 


Cher monsieur DUPONT 
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Courrier paramétré 


FEM COURF COURRIER FARAMETRE 
DIM TTC SE 


REP ce ve an a aa me ne on annee [LG gg mme an 
DATA "LIEERT Fierre Le EH, Eu" 
CATA "ue de FARIS 

GATA "éIl-SEFT FORGES" 

CATA " è 

CATA 
CATA 





4 CATA " Monsieur <1%  " 

ä DATA " L 

&ä CATA " 1 

ä CATA ‘ 

4 CATA " ù 

A DATA " Cher Monsieur ET un Des 4 
He DATA LS sise annee ie ete ge on diet TR 1 


ee 
al 


GATA "  " 
GATA "  " 

DATA " LIBERT F." 
CATA n " 
CAT LL [L 
DATA # 

REM == Fur 
16 DATA DUPONT, 12 RUE 
DATA FORTIH, RUE 1 

3 DATA BETHUEL, RUE 2222, PARIS 

390 DATA #:#,X 

400 RE Lecture lettre dans TATSC 5 

418 

420 FOR Lei TI 144 

430 :READ TATSCLO:IF TATSCL Ie "ET THEN HLeL-1:G0TO 56 
44 MEXT L 

AAA EM ne cena nee enr eee ee EE A À TC 


Te 1 SE ee om one oo 


Wifi loliememen pere pe pe be Lt 0 it CN Et fe 
ee GO pe Cr D CO Ji LA a Co Pi es 19 TS OR GG MD US 






QD Gi Mi 








AG FOR Evzei TO 14 
5 FOR Pei TO S':READ FEMSCPOcHEST F 
pe La FRE 1e 'CEU THEN STOF 


:FÜR Lei TO HL 
LIGHESETATS#E LG 1 
CCHS="< NU: GOSUE 
IF Fish THEH 6G4 


f 

& 

ä 

(5. 

ë 

A 

& ABG:Fi=F 
s : 

G + HP=VALCRIGHTSC LIGNES 
S : SAT : 
& 

5 

(n] 

ä 

ä 

[e] 

(| 


7) D M UN Rise in 


:LEHCLIGHES F1 5 
PE=F 


CCHga "et QUSUE SA 
S LIGNESELEFT#&C LIGNES, F1-1 +PETTRE NP C+RTGHT#E LIGNES, LENS LIGHES à 


LFEIHT LIGHES 
:ME#T LG 
FEIHT:PRIHT "Appuuez gur CRETURHS M:GET ## 
4 HEËT EY 
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EM fHecherche sous chaine 


LieLEHE COCHE 


FÜR Fe1l T0 LEHLIGHES :-L1 

5 IF MIDRELICGHES.F.LIeCCH$ THEH 3144 
4 HEAT F 

SA Fa 

144 KETLFH 





JERT Fierre +. LU GE 
1e de F ÊTES" RES L 
Si-SEPFT FORGES 


Monsieur. CUFOHT 


LE RUE xx 
FEHHES 


Cher Monsieur CUPOHT ses uunnue 


LIBERT F, 


LIBERT Fierre Le EE, OT 
Bue e FARIS 
Si-SEFT FORGES 


Monsieur FOETIH 


FLE 
REHHES 





Cher Monsieur FORTIS ss cum um 


LIFERT PF, 
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Quatrième partie 
JEUX 
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JEU DES ALLUMETTES 


Règle du jeu 


Au départ, il y a 30 allumettes. 

e Les 2 joueurs prennent des allumettes à tour de rôle. Celui qui prend la cernière perd. 
e Chaque joueur peut prendre entre une et le double des allumettes prises par le joueur 
précédent. Par exemple, sile joueur A prend 2 allumettes, le joueur B peut en prendre 1, 
2, 3 ou 4. 


EU 

Moulez vous Commencert CH 0 
Conbient d- Le 
J'en Fréends  £ 


Il en reste: £7 


Combien 7 


Nous avons défini une table BCOUP(,) où est stockée dans la 1" colonne le jeu qu'il faut à 
l'adversaire et dans les autres colonnes le nombre d’allumettes qu’il faut prendre pour gagner. 
Par exemple, s’il reste 11 allumettes, prenez en 2 afin qu'il en reste 9. 







Ce quil 
faut prendre 


Ce qu'il faut 
laisser 











TABLE BCOUP( . 


S'il reste 11 allumettes. 
en prendre 2. pour 
quil en reste 9 


82 | oRIC POURTOUS 


Jeu des allumettes 


14 FEM ALU JEU CES ALLUMETTES 
cz : 
34 : 
148 CATA W1:1.Z:3.:4,5,6 
119 DATA Hdi loss, 
124 DATA 6: lois 
159 DATA 99,1: 
144 DATA 1Zilosssisuuss 
154 DATA 14.:1,:2.:3:4,5,6 
164 DATA Lilou rususuus 
174 CATA 13, Loos ons 
184 DATA 28,1,2:3idiuu, 
199 DATA 2Silocssusssn 
269 DATA EPilolocsusuu 
214 : 
224 DIM ECOUPC 13, Fa:FOR el TO11:FOR Is1 TO 7:REAL 
J'HEXT J 
239 DEBLITS34 
c44 : 
254 CLS:PRIHNT " JEU DES ALLUMETTES": PRINT 
26 PRINT "ALU CEFART.IL Ÿ 4 3@ ALLUMETTES" 
265 PRINT "CHACLIH FREHDC CES ALLUMETTES 
267 PRINT "ALTERMATIVEMENT, " 
269 FRIHT 
279 PRINT "CELUI QUI FRENC LA DERNIERE FERD'':PRINT 
289 PRINT "ON PEUT EH FREHDRE ENTRE 1 ET LE" 
285 PRINT "OQUELE DU JELI FRECEDENT" 
294 : 
304 HRESTE=DEELUT : HM4zZ : HCOUPES1 :PFIHI=A 
314 PRINT:IHPUT "Voulez vous commerncere CH" R& IF 
ELSE TR=Z 
324 : 
334 ON TR GOSUB 374,484 
a4A IF PFIHI=1 THEH GOSUE SF4:GOTO 344 
354 GOTO 334 
364 REM = ne ce nn me JEU JOUEL: 
374 PRINT:IHPUT Combien en Prenez vous "3 HPRISE 
284 IF HFRISE<1 THEH 574 
394 IF HPRISES®HMX THEH PRINT: PRINT HMéi" AU PLUS":GOTO 374 
añ4 IF HPRISE*HRESTE THEN FRINT:PRINT "IL H'EH RESTE QUE ": 
OT 37 
419 : 
24 IF HPRISESHRESTE THEH PRINT :PRIHT "J'AT GAGME 
434 HRESTESHRESTE-HPRISE : HIMASHPRISEXEZ 
44 TR=E 
454 RETUPH 


BCOUP< J, I 1: HEXT 


F$="O" THEN TRei 


TiHRESTE: G 


M:PFINI=1:RETURH 
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M 


CR CR IR LR CA 
DD Dos Jen CM 


= GO M M D M 


MmHhiAnCn 


84 


REM Em ee ne oc JEU MACHIME 
IF NRESTE=1 THEN PRINT "J'AI PERDU" :FFINI=1:RETURN 


IF NMX=2NRESTE THEN HPRISESNRESTE-1:GÛTO 514 ELSE GOSUE 614 
PRIHT:PRINT "J'EN PRENDS: ";:NPRISE 

HRESTE =MHPRESTE-HPRISE :HMX=<HPRISEX#Z 

PRINT :PRIHT "IL EH RESTE :";MRESTE 

IF HRESTE=1 THEH PRINT:PRINT "J'AI GAGME": PRINT :FFINIs1:RETUEN 
TR=1 

RETUFH 


PRINT:IHPUT "COMBIEH C'ALLUMETTES FOUR LA PARTIE "à:CEEUT 
GOTO 344 


PEN Recherche dans 13 table des bons Coups 
FOR Le1i1 TO 1 STEPF-1 
FOR CeZ TO 6 


IF ECOUPCL,C)=4 THEN 660 
IF ECOUPL, 1 )+BCOUP<L.C<?HRESTE THEH 654 
IF ÉCOUPCL:CoHMX THEH 658 
HPRISE=BCOUPE L. C 3: RETURN 

: MEXT C 

HEXT L 

HPRISE=1:PRINT:FPEINT "VOUS POLRRIEZ GAGNER" :RETURH 
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LE COMPTE EST BON 


Nous proposons une version simplifiée du jeu ‘le compte est bon’ : 

e Nous choisissons 7 nombres aléatoires et nous effectuons des opérations aléatoires avec ces 
nombres. Puis nous affichons les 7 nombres aléatoires ainsi que le résultat calculé. 

e Ce programme ne vérifie pas si le résultat calculé par le joueur est exact. Il faudrait pour cela 
‘évaluer’ l'expression donnée par le joueur (par exemple : (25 — 3) * (5 — 2)) 





7 nombres déjà utilisés. 
aléatoires 


Les opérations générées par le programme sont seulement du type : 


+ 
Résultat = Résultat précédent | — | nombre aléatoire 
* 
/ 
EUN-Y 
Voici les F nombres 


Resultat atrouver: 66 
AFFuyer sur SRETURH: 


Ma solution: CESSE +14 


AMÉLIORATIONS POSSIBLES 


e N'afficher que les parenthèses strictement nécessaires, par exemple (25 + 3) * 2 + 10. 


e Pour évaluer le résultat donné par le joueur, voir le programme ‘évaluation d’une 
expression’. 
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Le compte est bon 


14 REM CPTE1 LE COMPTE EST EOH NOI 


28 : 

EA CLS 

99 REM-——————— 
198 FOR N=1 TO 7 


F NOMBRES ALEATOIRES -—- 


114 : HEBCHOI=1+INTÉ RHDC 1 #14 5 

128 IF HEÉCH25%18 THEH HEC H OzC MECS H 3-1 AG 0X4zs 

134 :HEAT H 

149 REM-----—— Hombre ds operations £a adaPter) 
159 NP=3+INTCRNDE 1 243 3 6 operations 
152 

155 FOR I=i TO F'OCCIT=G:HEXT I  :REM Hombrezs deja utilises 
164 : 

174 PA=INTERHNDE 1 347 541 

175 IF MNECPHDE 1 THEH RESLULSHES Pé4 5: OC F4 11 

184 : 

182 RS="": FOR Is1 TO HP-1:RS=RS4MC MI MENT I 

185 RÉ=RÉ+STESHE FESUL à 

264 au Hi TO WF-1 

214 ÛP=IMTÉ RH 1 244 141 QFeraticon 

215 : 

SEQ : Pasi+INTERHDC LIT 5 Choix cPerande 
834 : IF QCéFhoel THEH CEA Deja Pris 

244 : 

254 ON OF GÜTO 346, 406,544, 644 

64 

S54 FESULSRESUL+HEB6 Fi ce OP#enan 

314 GOT FAg 

324 

+an HeRESUL-HMB6 Pi: IF %<1 THEH 214 

495 RESULS=# : OP&= "1" 

415 GOTO 48 

428 

sag IF HESPF# 


=1 THEN 22% 
S14 : RESUL=RESUL#NEC PX) 
524 : OPS="#" 

: GOTO 74 


60% : IF HECP#X=1 THEH 216 


645 : A=RESUL‘HEC FX à 

61% IF #6IHTCH 1 THEM 214 

624 : RESULex:OPS&="" 

649 : GOT F5 

654 : 

F8 : OCéPA =] 

19 : RS=RS+OPS+STRSGE ME PA nn 

844 HEXT H 

814 IF FRESUL<164 OK RESUL:393 THEH 154 

828 : 

834 CLS 

84Q FRINT "MOICI LES 7 HOMBRES :":PRINT 

D FOR Mel TO F:PRINT HBCHSG:HEXT H:PRIHT 
G 


914 PRIHT:FRIMNT "Resultat 3 trouver :";RESUL:FRINT 


86 


ORIC POUR TOUS 


à PRINT "Pour avoir ma solution faire <RETUEHS" 


GET #5 
PRIHT:PEIHT K$ 


PRINT 


PRINT "APPUYER SUR ENTER: M:GET #%$ 
GOT 196 
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ÉVALUATION D’EXPRESSIONS 


Etudions comment peut être réalisée l’évaluation d’une expression arithmétique. 


L'analyse d’une expression se fait de gauche à droite. Chaque opérande rencontré est mis dans 
une pile dite ‘pile des opérandes’, chaque opérateur étant lui stocké dans une ‘pile des 
opérateurs’. 


À chaque fois qu’un opérateur de puissance inférieure ou égale à celle de l'opérateur du haut 
de la pile est rencontré dans l'expression à évaluer (+ est moins puissant que *), on évalue le 
résultat de l’opération entre les deux opérandes du haut de la pile avec l'opérateur du haut de 
la pile, puis le résultat est rangé à la place des deux précédents opérandes. Enfin, l'opérateur du 
haut de la pile est supprimé. 


a%Xb+cXkd il - 
{ on évalue a X b ENS p9 


akXb+cxd 





Ici, on évalue c K d 


puis (a-X b) + (c-X d) 


IE 
No) 
ESP RET TEE 
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Lorsque l'expression à évaluer comporte des parenthèses, celles ouvrantes sont stockées 
systématiquement dans la pile des opérateurs. Considérées plus puissantes que les opérateurs, 
elles empêchent l'évaluation tant qu’une parenthèse fermante n’est pas rencontrée. Chaque 
parenthèse fermante provoque l'évaluation jusqu’à la parenthèse ouvrante correspondante. 


aX((b+c+d)X(e+f)+gxh 


| 


Îci, on évalue b + c 


aX((b+c+d)X(e+f)+gxh 


| 


Ici, on évalue d + (b + c) 


aX((b+c+d)X(e+f)+gxh 


| 


Ici, on évalue e + f 


akXk((b+c+d)X(e +fl+g%xh 


Ici, on évalue 


(b+c+d)Xe+f 
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Remarques : Compte tenu des temps de traitement des chaînes de caractères, ce programme 
est relativement long à exécuter. Nous n’avons considéré que les opérations d’addition et de 


multiplication, celles dont nous aurons besoin plus loin. 


90 


Quelle expression ? 



























[ 
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— 
Extraction d'un caractère 
de l'expression 
oui 
> 
Ranger opérande 
courant dans la pile 
L'opérateur 
lu est-il moins puissant 
que celui du haut 
de la pile ? 
Evaluation 
À À 
Placer l'opérateur 
lu dans le haut 
de la pile 
D 
Placer opérande 
courant dans la pile À 
Placer ( dans oui 
la pile opérateur 
© Evaluer les 2 opérandes Evaluation 
du haut de la pile ES —_—_ 
opérande avec 
l'opérateur du haut de 
la pile opérateur 
© Placer le résultat à 
la place des 2 opérandes 
évalués 


Evaluation d'expressions 






14 REM E'YH EYHLUHTIUH CUHE EXPRESS LUH 

26 

4f DATA Le ai n 1: nyn n 1; non n D, | PA | 12 LL ÿ D ÿ 5 ME LE $ 4 

5 : 

A FOR I=1 TO 6:REAC P$CI2FPÉIU:MEXT I 

QG 4ÿ="C +3 r#12/-£ 0" :RENM Remplacer Far INPUT #4 

144 : 

12@ RT=1:RD=1 

139 CUR=1 

14& : 

154 DEF=CLUR 

164 : 

174 Y$=MIDSE 4, CUR, 12 “ fé:caractere analuse 

154 : 

139 IF r$="" THEN Yé="ut: COSUE ZE: PRIHT:PRINT MRESLILTAT:"MIRACTUE 
TOF 

246 IF “#="+" THEH GOSUR 266: CURSCUR+ I: GOTO 154 

205 IF “Y$="-" THEH GOSUE 264: CUR=CUR+1 : GOTO 154 

218 IF ‘Y$S="#" THEH GOSUB 284: CUR=CUR+1 :GOTO 154 

215 IF Y$="." THEN GOSUE 284: CUR=CUR+1:GOTO 154 

224 IF “$="t" THEH GOSUB ZS4:RT=RT- 1: CURSCUR+1 : GOT 154 

224 IF Y$a"C" THEN RTSCRT 1e TS: RTSRT +1: CUR=ECUR41 : GOTO 154 

248 CUR=CUR+1 

£25@ GOTO 174 

LEQ RE ee once a ue me PLUS<MULT 

89 GOSUE 44 

281 

282 #4S= 18 : GOGUE Sgg:P1=P 

294 IF RT:1 THEH XAS=RTS$RT-1 5: GOSUE SA: PFESP 

294 IF KTe1 AND FizP2 THEH GOSUE SSG:RTERT-1:GOTO 28€ 

295 : 

204 RT&CRT OZ SH: RTERT4+1 

314 RETLURH 

329 REM---mm ee me PARENTHESE FERMANTE -—--- 

334 GOSUE d4f 

331 : 

332 #na$="$:GOSUE SG4:Fis=F 

3934 HAS=RTSERT-1 0): GOSUE 64: PEEeP 

344 IF RT?1 AND F1=%FZ THEH GOSUR SEG:RT=RT-1:GOTO 332 

359 RETURH 

960 REM-- mme meme meme EVALUATION 

384 FOR Iz1 TO RT-1:LPFRINT RT# IA: :MEAT I 

394 LPRINT TABS2553:FOR 1=1 TO RC-1:LFRINT RACI SG :MEMT I''LFRINT 
44G IF RTSCRT-1="4É" THEN RACRD-2 RAC RD 1 DKRAC RC 1e RDeRD- 1: RETURH 
495 IF RTSCRT-1 us" THEN RACRD-Z RAC RD -2 1 /RACRD-1 1: RGSRD- 1: RETURH 
414 IF RTSCRT- CR THEN RACRD-Z =RACRD-1 +R ACRD-E 1: ROSRD- 1 : RETURN 
415 IF RT#SCRT-1 HE" THEN RACRD-2 SR AC RD-E 1-RAC RD 1 1: ROSRDO- 1: RETURH 
424 REM---- mm ne men AJOUT PILE OPERANDE ---—- 

444 CH$S=MIDSE #26. DEP, CLUR-DEP 5 

454 IF CH$="" THEH RETUREH 

464 RAS RC = VALE CHS à 

478 RD=RD+1 

484 RETURH 


52 PROGRAMMES | 91 


92 


F98 REM------— POIDS OFERATELIR ---- 
846 FOR I=1 TO 6 

818 :IF #4$=P&c I) THEH P=PCI O2: RETUREH 
BE MEXT I 

830 P=ÿ8:RETURH 


E + 
# 
“# 


to 


Bb pet QI 


Li 
Fo 

re 
Fo F9 
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LE MOT :LE-"PEUS. EONG 


Nous présentons ici une version simplifiée du jeu ‘le mot le plus long. 
Dans chaque ligne de ‘DATA’ sont définis : 

e Le mot le plus long; 

e Des lettres complémentaires (9 —— longueur du mot le plus long); 

© Les autres mots possibles. 





Autres mots 
possibles 


CATA PECALES, TO, FETALES, FECALOS, # 
er Lettres 


Nous affichons les lettres du mot dans le désordre puis nous attendons pendant 30 secondes le 
résultat du joueur. Si la réponse n’est pas bonne, nous affichons la (ou les) solution(s). 


Affichage double 
hauteur fond jaune 










A DEPLSETO 
Votre solution : PÉDALES 


ok 
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Le mot le plus long 


14 KR 
22 I 
25 N 
38 C 
4& D 
54 D 
68 D 
ra D 
84 D 
36 C 


134 

148 

154 

8938 

344 

a14 

1494 
181 
1815 
1424 
1935 
ig4ÿ 
1954 
1148 
1145 
1114 
Jaun 
1115 
1116 
1117 
1128 
1138 
1144 
1154 
1164 
1165 
1174 
1248 
1214 
1711 
1212 
1213 


1214 : 


1215 
1216 
Q 1Z 
1217 


EM MOT MOT LE PLUS LONG 

HH1 

M=13 :REM NOMBRE CE LIGHES 
ATA FICHIERS. W,# 


ATA PEDALES, TO, FETALES, PECALOS ; # 
ATA ARMOIRES, I,# 

ATA MOQUETTE. A, MAGLIETTE . # 

ATA FAUTEUIL:%.%# 

ATA ELIREAU, GIZ, * 

ATA CASSETTE. CD.# 

DATA RIDEAUX. HU, % 

CATA ARCOISE.,FO0,FROIDES.*# 


4 DATA TABLEAL, ED, *# 


CATA CHAMBRE, AU, CHAMEALI. # 
DATA CLAVIER. GX, # 
DATA CHEVELU, AR, CHALEUR, CHAULER:, # 


RESTORE 
FOR lei TO G:FCIO)=Q:HENT I 
#=RHD£ 1 YXHM 


FOR I=1 TO # 
°IF #=4 THEN 1448 
READ #% 
READ A$:IF A$e UE" THEM 1434 


MEXT I 
READ MOTS 


FEAD Cé:MPS&=MOTS+CS 

REM = ae moe ce anse eme men Affichase lettres double hauteur fond 
e 

CLS :FRINT:PRIHT:PRINT:PRINT " "3 CHRSE à CHRSC 27 5 "I" 

PRIMT " MiCHRSE EF Ii MEN; 


PRINT CHRSCET 5 "E"; 
FOR I=i TO 3 


Pai+RHDé 1143 

IF FéPieG THEH PRINT MIDSMPS. Pi" "i:FéFizi ELSE 1134 
MEXT I 
PRIHT CHR$&C ET 5; "UM"; 
PRINT CHE di " Fin double hauteur 


PRIHT:PRIHT:FRIHT 

PLOT 5 :16. "VOTRE SOLUTION: " 

S$= RL 

REMÉSSSSSSSssrsnnnese Attente réponse =mm-mmemmmmemmme 


T=û * Chrono 


HB=KETS:IF 46€" THEN 1224 
T<T+1:IF T:504 THEH 1299 ELSE FLOT 4,2%, STRS&CIHTIT-24 33: GÛT 
15 


1218 : 


94 


ORIC POUR TOUS 


1213 
1224 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1234 
1234 


1225 


re 
£ i 
D Ex 


me 
BR a Li D GOT ar 
mime rs © U 
DOUBS rime D 


REM----——-— Saisie rePonse 
S$=#$: FPLOT ZG+LENCSS 5, 16,5% 


AB=KEYS:IF #$="" THEN 1222 

IF ASCC#4$3=15 THEN 1234 

IF ASCCHGIS +12 THEM 122€ 

S$=LEFTS 5%, LEMCSS$ 1-1 1: PLOT ZA+LENÉ 66 41,16," ":GOTO 1282 
S$=56+#$: PLOT SG+LEHC 6 1, 14.8 

GATO 1222 


IF MOTé=S$ THEH FLOT 24,2@,"0K,, ,":MAIT 344: GOTO 364 
FOR I=1 TO 4 

REC ACISU:IF AGCTISNE" THEH 1284 

CIF ASIS=ES THEH PLOT 24,24,"0K,., ":HAIT 364: GOT 
à HEXT I 


LD 
= 
= 


#$= "MA SOLUTION: "4MOTS 

PLOT 14,24.%% 

FOR I=i TO 4 

: IF Ag IH="4" THEN 148 
AS=ASC IH: PLOT ZE, Z2A+T. AGIT)! 

HEXT I 


MAIT 345 
GOTO 9%E 
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BIORYTHME 


Il existerait chez l'homme des périodes ‘positives’ et des périodes ‘négatives’ réglées par des 
‘horloges internes’ indépendantes de l’environnement extérieur. 


en — Siti 
ne 








23 jours 28 jours 33 jours 


LS / 
SE 





Jour de 
naissance 






Cycle physique 


Cycle émotionnel ; 
Cvcle intellectuel 


Il y aurait trois types de cycles : 

e Cycle physique de 23 jours; 

e Cucle émotionnel de 28 jours; 

e Cycle intellectuel de 33 jours. 

On pourrait ainsi connaître à l’avance les jours favorables et défavorables. 


Pour afficher une ligne, nous stockons dans une table tampon LIGNES(), les caractères à 
afficher. 


LIGNES (31) 





Affichage à l’écran : 
Physique 


Emotionnel 


1:7 8 15 22 29 





intellectuel 


_ — 
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Biorythme 


A tt Et a LD —$ Ci CU CN TO 
HE Lio Pin D CR D AO MU 


D Ci nn 


FEN ETOF ELORYTHNME Céecran ou imprimante 
DIM LIGHESE 51 1, MOISSC LE, NE LE à 


CATA JAH, FEV, MARS, AVRIL, MAT, JIUIH, JUILLET, AQUT, SEPT, OCT 4 HO CEC 
FOR I=i TO 12:REAC MOIS&I TSH: HEXT I 

DATA 51.26,31.389,51,34 31.504,31 ,34,31 

FOR 1=1 TO 12:READ JMIS:HEXT I 





CPFars: CESSE: CIS " Fhysidue-‘Emotionnel-Tntelléectuet 


CLS: PRINT "ET OR Y T H M E":FEINT 
IMPUT UYOTRE HOM "HOME 

PRINT: PRINT CHATESANCE :": PRIHT 
IHPUT "JOUR, MOIS, ANNEE "53H, MH, AH 
IF ANS12684 THEH 154 

Je JH: MEMH: ASH: GOSUE 1588 : 44e JM 
GOSUE 24696 


PRINT: PRINT PÉTURYTHNME : "PRINT 
INPUT "MOIS, ANNEE "iMB.AË:IF AES1398 THEH 176 
Jet: MEME: ASAE: GOSUE 156: HUOUREJY-AU CREM nb de jours vecuis 


245 GÜTO 4344 :RENM SupPrimer Four imprimante 
14 FElzzescscescssss EDITION IMPRIMANTE === 





4 He4:CLS 


LFRIHT:LPRINT UE TOR YT ME ":LFRINT 


34 LPRINT HOMO He Le MUR Sos M Mie" ie AM 


LPRIHT "OO CG HIOUR:" jours A LPRINT 


G FOR I=1 TO S1:LIGHESI)=" ":MEXT I 


GS LPRIHT:LPRIHT MOTESSCME 3" 3 AE: LPRIHT 


Ce = D 
Sn Gr D GG -J 


Si 7 Ti M Ti D CON LR RENE 
mere Li fe M Qi 


4 
+ Fi 
Fi Ei 


LPRIHT " negatif Positif": LPFRINT 


A REM-- 
A FOR Dei TO JIMCME 


LIGNES 16 ei" 
PIS THTÉ LES THE CE +MUJOUIE à 
PES THTÉ I 4ÆSTHE HO 
LPS THTE HS THE CS K+HUQUR FI-CI 415,5: 
LIGHESE F1 ep LIGHESC PE ete LIGNES PSN" 
IF PIsPE THEN LIGHNESS F1 = "4" 








EXPI<CF 415,52 
PI-CE :+15.52 


s CIF Fées THEH LIGHESE PE Ge UE" 


CIF FisFS THEN LIGHESE FIGE Ux" 


LPRIHT Ci TABS IE à 

FOR el TO SI:LPRINT LIGHESGC #0: HERT &:LPEÉINT 
:LIGHESE F1 EM M LIGMESE PE EN LIGNES FE" 
Kkek+ 

HET C 

FRIHT 

MESME+1:TF ME1Z THEH MEzi: AB=AE+1 

GÜTO 445 
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1434 


RE CALENDRIER PTT 


35 a JA ei I 








A CURSET 9,: 


à CURSETA, 154, 1:CRAU 
A DT$=" 1 8 

A CURSET 1.81,3 

G FOR I=1 TO LEHCOTS 2): H=ASCCMIDSCDTS, L, 122: CHAR #4, 1:CURMOV 7,0 





Se TMTE 641-104, 661 5: MEME LE EME AE ME 
a J#INTÉS C1 HS LEE, BATCH IHTO GES, 2TXC Ad 712 +, AG 
ie JU THTE A LE IE THTE A. 4 GE 
FETLREH 
RM emmemene JOUR DE LA SEMAINE == 
RE Jr JS 
JF 1 "D TMANCHE"  JR&C E e LUNOT "JR Se "MARDI" IR SE à 1e "MERCRE 


A RE Se M IEUDI " : JRSé 6 je "VENDREDI": IR@C 7 =" SAMEDI" 






J4-1 720077 67 

se [HTÉ JS IHTÉ JS +, A1 +1 
FETUFH 
FREMasssssssassesseecsessesenmeees TU esse 

HIRES : CURS 1.6:FILL 64,1,F:FILL 64,11 







‘F GE 
34,1: RAI EE, 4, 1 
CURSET 4.96,1:CRAU 2 1 

2 1 


MEXT I 

MSS$="Fhssique" :«Me2g:"MS14: GOSUE 4991 
MS$="Emotionnel":#4M=2@: "Mer 4 :GOSUE 4991 
MS$="Intellect ":AMe24:M=130: GÛSUE 44391 
GÜTO 566 


CURSET 41.1, 






4992 FÜR I=1 TO LEHÉMSS$: 

4993 :H=ASCCMICSCMSS, I, 122: CHAR #4, 1: CURMOY 6,453 
4994 HEAT I 

4935 RETURH 

5068 FOR Dai TO JMME 

SadA : Pi ZE#SINECK4+NJOUR TEZ#PI-CF 
SAS POS ZSESINEE K+HJOUR SEZ#PI CE à 
Sat :P3= RS P NEO KL#PFI-CI 
51 AA ME 

5114 :CU SET 4: 39-P1,1:DRAU 4.4.1 
St2A :CURSET #,34-P2, 1:0DRAU 4.4.1 
5154 :CURSET %,159-F3, 1:CFAU 4.4.1 
Sc :KeK+1 

Se14 HET © 
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JEU DE MARIENBAD 


Règle du jeu 


Quatre rangées contiennent 7, 5, 3, 1 allumettes. Chaque joueur doit prendre à tour de rôle des 
allumettes dans une seule rangée à la fois. Celui qui prend la dernière perd. 


[Ill 
 [l 
, ll 
| 


Un algorithme donne le nombre d’allumettes à prendre pour laisser un jeu perdant à 
l'adversaire. 

e On convertit en binaire le nombre d’allumettes de chaque ligne (dans une table BN(,)). 
e On effectue la somme de chaque colonne de la table BN(,). 


7 








Tous ces chiffres 
doivent être pairs 


© Pour laisser un jeu perdant à l'adversaire, il suffit que les chiffres de toutes les colonnes de 
SM() soient pairs. 
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Jeu de Marienbad 


24 


19 REM MAR JEU CE MARIEHEAD 


23 CLS 


34 REM----- Jeu deFart 


PRIHT 
INPUT 'Voulez vous commencer CCM RS 


JRSG:IF R$="Q" THEH IR=1 


? FP=9 


IF JR=1 THEN GOSUE 29%: JR=1-0F 


à IF FP=1 THEH 194 


IF JK=@ THEH GOSUE 34G:JRe1-UR 


2 IF FF=1 THEH 144 


GOT 134 


224 INPUT "COMEIEH Mi 


IF HAJIEUC LS THEM FRINT:PRINT "VOUS TRICHEZ": PRINT: GOTO 214 
JEU Lis JEU L 3-H 


GOSUE 4946 " Affichage 


s GOSUE 5694 " Fin de Partie 


67 IF S=i THEH PEIHT "VOUS AVEZ GAGNE":FF=1 


A RElzzzssssesesesesesessensenessessasses MACHINE szssszszsesezss 


: AsJEUC LOT: GOSUE 1998 
HEAT L 


j'REMSersesssmmiun Recherche jeu QaQant eee 


FÜR Lei TO 4 4 lignes 
FOR Hai TO JELEL “ [In essaie d'en Prendre 1 a JELÉL' 
IF JEUCL'eg THEH 54 
He JEUSL-H:GOSUE 1484 
GOSLUE 2946 " Sommation colonnes 
IF GHe1 THEH GOTO 686 
HEZT H 
: #s JEU Lo: GOSUE 1444 “ Retablissement de la ligné binaire 
HET L 
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DaDNANÉE ee 


Pas de solution 
À 
Lir9 THEH Hel:GOTO 69% 
SC See BMD H&JEUCL 3 THEH H&JEUCL 1 


THEH HeJELE Li 
THEH He JEU Lire 





FÉIHT MIE JOUE: LIGHE: "ba" EH FREHDE : 0H 
FL te EUR L s—H 


GOSUE dE EA 


GOSUE SATA 
IF Sel THEH FEIHT:PFEIHT "J'AI GAGHE: PRINT :FF'a1 
FETLEH 

FENM mme QU BTHAIRE 

FEI ENTREE: %,L 
1 FE SORTIE: FEMFLIT EHEL, 








FOR F=£ TO @ 5 
EH€L.FsIH 
He EH L, F4 

HEXT F 

RETURH 

REM SOMMAT IC 

264% FOR C=£ TO à STEF-1 

2695 : 5=0 

2914 : FOR Li=i TO 4 

G29 : EeS+EMiLi,Ci 











2834 GH=g 
2164 FÜR Ce2 TO & STEF-1 
2118 ‘IF THTC SME CEE SM CZ THEH GHeë: RETUEH 
212 HEXT C 
GH=i 
4 FETLEH 
REP: East DER TN 
4 FRIHT 
1 FÜR Lei TO 4 
FPRIHT Lit"; 
‘FÜR H=1 TO JELKCL) 
IF JEUCL:=4 THEH 4f4f 
PEIHT "I": 
44 :HEXT H 
4 PEIHT 
HEAT L 
RETURA 
REN- more FIN DE FARTIET 
AUS Seû FOR Lei TO 4: Set JEU LOS HEXT L':RETUEH 
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JEU DE MARIENBAD 
PAR APPRENTISSAGE 


Nous proposons le jeu de Marienbad. Mais cette fois-ci, la machine apprend à jouer en 
‘imitant son adversaire. 

Pour la première partie, la machine prend une allumette dans une rangée quelconque. 
Dans 2 tables J() et P() sont stockés tous les jeux de la partie. 










On prend 1 
dans la rangée 
de 3 





Jeu en cours  Allumettes prises 


A la fin de la partie nous cumulons les jeux de la partie achevée dans 3 tables. 





Récapitulatif des  Allumettes prises Gains 
jeux 


Dans une table des gains G(), nous faisons +1 si la partie a été gagnée et —1 si elle a été 
perdue. Ainsi, pour les jeux suivants, la machine consulte ces tables pour chercher des 
configurations gagnantes. 


Au fur et à mesure des parties, la machine dispose de plus en plus de configurations gagnantes. 
Elle doit jouer de mieux en mieux, surtout si son adversaire joue bien. 

Pour tester le programme, laissez-le commencer la partie la première fois et gagnez la partie. 
Commencez la seconde partie (comme lui) et il jouera comme vous aviez joué lors de la 
première partie et gagnera lui aussi. 
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Autre méthode : 


La table des jeux peut être organisée différemment : 

e On stocke le jeu à fournir à l'adversaire (et non le jeu actuel). 

e On recherche alors, par essais successifs, le nombre d’allumettes à enlever pour parvenir 
au jeu cherché. 

e Cette méthode est plus puissante que la précédente mais plus compliquée à programmer. 


TJ( ) G( ) 





Jeu à fournir 
à l'adversaire 


Supprimer : 237 GOSUB 6000 : GOSUB 6140 
Ajouter : 245 GOSUB 6000 : GOSUB 6140 


Les instructions 290 à 589 deviennent : 


29 DESERT PCR een MACHIHE mmmmmes 
366 

4G5 MCOUF= 3 

dB REMSTSSES Sn seesenss Recherche table des jeux 

415 IF T13=6 THEH H=i:GOTO 664 


426 FOR Lisi TO 4 

425 :FOR H1=1 TO JELGLI 2 

der : SJsIEU LI: 

434 : JEU L1 2e JEUC LI Hi: GOSUE €G4E 
448 : FÜR I=1i T0 £64 

445 : IF TMIi=G THEH 476 

454 © IF JCODÉ2TC I) THEH 464 

455 3 IF GiI:MCOUF THEH MCOUF&GCT 1: MHJEHI:FLeL1 
465 : HEXT I 

4F4 : JEU LI 45 

+58 :HEAT H1 

436 HET Li 





529 IF MCQUF=<S THEH He1:GOTO 6@f4 

43 LePL'HEH.I 

264 : 

PRIHT:FRINT "J'EH FRENDS : "Hi" LIGNE: "SL 

JEUNE Le JEU L'i-H 

GOSUE 6444: LOSUE €1d4f 

GOSUE +AA 

GOSUE SE 

IF S=1 THEH FEINT :PRIHT "J'AI GAGHEM": PRINT: Gel: FPFæl 
FETUFH 


nANnGARNnAUAnEn 
CG CQ CO Où Où 00 00 02 
DJ M 1 BE D Fo mt 
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Jeu par apprentissage — Marienbad 


14 FEM AFPR  IELI PAR APFRENTISSAGE -MARIEHEAC -— 
24 : 





CIM TE 2060, APE SE 1, Gi SO, Ie 36 4, PC, LUIC ZE 








ES CLS 

el: RÉRRRSeeS e2re Jeu deFart 

144 . JEU Etes 

115 . 3 1e5 : JEUX 4 ‘= 

124 

154 G0S UE 4 

164 REM 

165 PRINT 

174 INPUT M"Youlez vous commencer CON ik 
175 JR=g IF R&= "OM THEN IRel 

176 

Nr FP= ä: COUP = 

175 

154 IF Jez1 THEN GOSUE ZA: .R=1-.IR 
185 IF FPzi THEH GOSUE Fagg:GOTO 144 


198 IF JF=4 THEN GOSUB 384 :. die 1—IF 

192 IF FF<i THEH GOSUE F64@: GOT 144 

195 GOT 184 

209 RElazszzszssesessesesesesseseneseszss JOLIELR assesese 
214 PRINT:IHPUT MGUELLE LIGHE "il 

226 INPUT "COMBIEH Mi 

234 : 

235 IF H?JEUGLS THEN FRINT:PRIHT "MOLUS TRICHEZ'":FRIMT:GOTO Z16 
237 GOSUB 6498: GOSLUE 6144 

239 : 

248 JEU L =.IELIE L'i-H 

254 : 


264 GOSUB 4498 

265 GOSUE Saga 

267 IF S=1 THEM PRINT "YOLUS AVEZ GAGHE":FPFel Ge 1 
278 RETUFH 

294 Er un MACHIHE semis 
364 

316 GOSUE 64e ‘REM Conversion -% jeu Code 
324 JAC=JCO :FENM Ex: ICODSFS51 

334 : 

494 MCOLUF=Z 

did: REM==ssesesssmessssnsms Recherche table des deux 
426 FOR I=1 T0 £4A 

425 :IF TIo=A THEH 524 

434 :IF JIAC£É2TIC TI) THEH S4f 

444 :IF G£I2>MCOLF THEH MCOUF&GET 3: FCOUPET 

SG HEAT I 

214 : 

S24 IF MOCOUFSA THEH He: G0OTO 644 
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534 REM-----— décodage: G1 —-% 5 gt 1 
544 MLEIMTE AP< PCQOUR 2164 01: HF POUF 3-HL4 184 
S42 FOR 1=1 TO 4 

545 :IF HL=JEUCI) THEH LeT:GOTO 564 

5dd HEAT I 

545 STOF 


266 GOSUE 6065: GÛSUE 614f 


269 PRINT:PEINT "J'EN FREHDS: "Hi" LIGHE:"iL 
JEU Los. JELIE Lit 






a) 
n Eh: 


85 GOSUE 400 
GOSUE SQGa 
IF S=1 THEN PRINT PRINT "J'AI GAGNE":PRINT:G=1:FP=l 


RETLUEH 
EM PAS DE SOLUTION EH TAËLE 
Hi=@ 


FOR Isi T[Ù 4 

‘IF JELCT4%H1 THEH HISJEUCT 1:LeT 
HET I 

GOT rs 


D REM mme DESSIH 


BELGE MDNIMAMNNNENEN NAME 


QSUOUBUQuUeMUMME 
= D D D D D D D MID JM 


D'un 
ar 
un | 
re 
er 


à FÜR Lei TO 4 

412 :PRINT Li" "à 

4824 FÜR Wei TO JEUCL 3 

4925 : IF JEUCL'<4 THEH 4f4f 
4934 : PRINT "I": 

494% :HEXT H 

4454 PRINT 

4066 MEXT L 

4674 RETUFH 

4994 REM-----—- FIN CE PARTIE 
5984 5=û 

59065 FOR L=1 TO 4 

5814 :5=5+JELE L 5 

3924 HEXT L 

5934 RETUFH 
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Re 
Su 


Due Ex Ex Done xl Eux] 





REM----- COHVERSTION JEU ee JEU CODE --— 

FOR I=1 TO 4:#iTi=JELE TI:MEXT I 

l'=4 

FOR I=i TO 3 

CIF HCI+I MERCI THEN ei T ie T me Ta] nié Tél ms Tu 


MEXT TI 


A IF IV=1 THEN 6458 


JCOC=4 

FOR I=1 TO 4 

: JCODSJCOC+HE THAT -1 
MEAT I 


3 RETURH 
3 REM-----—— MAJ TABLE JEU ACTUEL 


COUF=COUR+ 1 :.J€ COUR %=.ICOC 

Pé COUR = JEUC L'#16+H 

LUI COUP = 

FETLIEH 

REMES = mme MAJ FIH CE PARTIE 


FOR Ie TO COL 
osé Ti VeReT 
FÜR el TO 184 
IF Ti Jie@ THEM TE is: APE Je 
IF #eTJC Ji THEN IF AFGJüeY THEH 7486 
HEXT 


IF LOUIS Iiel THEM Gé JieGé Ji 
IF LUTCTo=G THEM Gé JieGé JC 


MEXT I 


A RETLRH 
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LE JEU DE LA VIE 


CONWAY a imaginé le ‘jeu de la vie’. Des cellules se reproduisent ou meurent en fonction 
de leur juxtaposition. 


Les règles sont les suivantes : 


e Chaque point entouré par 3 cellules donne lieu à une naissance. 
e Chaque cellule entourée de 4 cellules ou plus meure (étouffement). 
e Chaque cellule entourée par moins de 2 cellules meure (isolement). 


Les . 


108 


Ce point est 
entouré par 
3 cellules 


=, un . 


Ce point est entouré 
par 4 cellules 
ou plus 


Far "1 
1 “he 
Fe 1 
— > 
LS 4 
! 1 ! 
nt 


ORIC POUR TOUS 


Génération O0 Génération 1 Génération 2 


Première méthode : 


Nous appliquons directement le principe énoncé : Pour chaque point, nous considérons les 
points voisins. Nous positionnons à 1 les éléments d’une table V(X,Y) lorsqu'il y a naissance 
puis nous affichons le contenu de la table. 





TABLE V (X.Y) 
EUH—y 
Hombre de cellules? 47 
Coordonnées %x:9T 14, 187 
1.11 








Génération N + 1 


Génération N 


Deuxième méthode (d'après revue Bvte) : 


La première méthode présentée est très lente puisque pour chaque point, nous explorons 
systématiquement ses 8 points voisins. Sachant que seuls les points allumés peuvent provoquer 
une naissance ou une mort dans leur voisinage, nous procédons ainsi : 

e Pour chaque point allumé, nous augmentons de 1 les 8 points voisins. 


TABLE V (X, Y) 





e Nous explorons la table V(X,Y) et nous allumons tous les points totalisant 3 (naissance). 
Nous éteignons tous les points supérieurs à 4. 


Troisième méthode : 


s 


De façon à ne s'intéresser qu’aux points allumés, nous ajoutons 2 tables XX() et YY{() 
“pointant” vers les cellules en vie. Ainsi le temps de traitement est notablement réduit. Il est 
indépendant de la dimension de la table V(X,Y) 










XX( ) YY 
= 
5 


) 





Pointeurs 
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VOICI UN EXEMPLE D’EXECUTION : 


Combien de cellules? & 

Cosrdonees? 18,182 F 
11,18 
12,19 
13,18 
14,18 
15,10 
16.19 
i738 


18 cellules 


8 cellules 


ER 


énération ALT ce 
Génération 0 Génération 1 Génération 2 


A la 48° génération, nous obtenons une combinaison stable. 
En travaillant en haute résolution, le territoire devient beaucoup plus important. 
Jl suffit de remplacer : LORES par HIRES 

PLOT X,;Y,16 par CURSET X,Y,0 

PLOT X,;Y,10 par CURSET X,Y,1 

SCRN (X,Y) par POINT (X,Y)=-—1 





ELIH 

Ai 

Hombre de cellules? 7 

Cocordonnees %x,97 49,34 
46,31 
48,52 7% 
49:44 
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Jeu de la vie n° 1 


19 REM WIEÏ JEU GE LA WIE HO 


:REM limites territoire 





BE THPUT MCombien de cellules MiHC 
35 PRINT 

FOR H=1i TO HC 

A :IHPUT "COORDONNEES %.% "is 
A VOX vieil 

A MEXT H 
A 


JU BU PIED 


tiemmmenmmmrH D 





Q REM--em eee nee ae a a 
G FOR “=v1 TO Ye 
A :FOR Azkl TO KE 
A : 
Sn : Vés. vie@:Ty= 
aa : 
AA : REM & Points Voisins 
c1f QF Dix 
EEE : IF Dk=f THEH IF CY=G THEH £4f 
234 : IF SCRME 440%, 4Dizlé THEH TYETY41 
246 : MEAT Dé 


254 : MEXT CY 
‘IF Tysïd THEH Vé4, YieG:GÜTO 364 
IF TYe3 THEH Wii, 4=1:GOTO 344 
IF TVsz OR TY=3 THEM IF SCRHISK,%0=16 THEM V4 el 


ro 
an 
Da) 


SO OQRD D D RDS DNODDOGOSEAQMME 
ss … 6e ar ES es ” 

Le 

7 

8 


HET x 
HEAT 
GH=GH+1 RENM Ho Generation 


GOSUE SA 
Lors 154 


a 41€ 





HEXT A 


HS=" GENERATION : "4STR SE GH à 
PLOT 25,24, 
RETURH 


M DDDQD ITU BUMI' Eee MU BR LR DU 0e D ED TN 


D D ON CN CN CT CA CA C9 CN CN CE Ce Ga 0 C9 Co Ci Lo PQ Pa Fat 
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Jeu de la vie n° 2 
19 REM VIEZ JEU CE LA VIE HOZ 
28 : 
38 CLS 
44 H1=2: 42223 :REM limites territoire 


112 


59 Y1=2:"2=22 


60 DIM VC42,%25 
INPUT "Combien de cellules "IMC 


83 PRINT 
99 FOR Hzi TO HC 


614 


‘INPUT "Coordonnees K,% "ini 
IMC HA RS 

NEXT H 

LORESS 

GOSUB 546 


FOR Y=Y1 TO Y2 
:FOR X=%X1 TO X2 


IF SCRNCX,%9€216 THEN 398 


: FOR DY=-1 TO 1 :REM 8 Points voisins 
FOR Dx=-1 TO 1 
IF DxX=9 THEM IF CY=@ THEH 24% 
VE RDA à + D = VC HD, + Dr +1 
HEXT Dx 
MEXT DY 


:NEXT _X 
NEXT Y 


GN=GN+1 
GOSUB 500 
GOTO 156 


FOR Y=Y1 TO Y2 

‘FOR X=x1 TO «2 

‘ IF WéK,%23<2 THEH PLOT #.%,16:GO0OTO0 568 

‘IF VC#,#2=3 THEN FLOT #,%7,16:GOTOS68 
IF Véx,9=24 THEN PLOT #,7,16 


: MCH, Ÿ2=8 
MEXT # 
MEAT 


AG=" GENERATION : "+STRSEC GN 5 
PLOT 25,24,x$ 
RETURN 
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Jeu de la vie n° 3 


190 
114 
112 
120 
124 
125 
123 
1458 
159 
166 
174 


ega : 
205 : 
219 : 
215 : 


REM JEU DE LA VIE NO 3 


DIM 46995, %Tc93) 
DIM #16999,%1€ 995 
CLS 

#1=2:#2=34 
Yi1=2:Y2225 

DIM VCXZ+1,%2+10 


INPUT "COMBIEN DE CELLULES "iHC 
PRINT 
FOR H=1 TO HC 

: INPUT "COORDONNEES #,% "34% 
DUTTREL TE 

ERACHOI=A VC HOT 

NEXT H 

LORESG 

GOSUE 546 


FOR H=1 TO HC 
LABRAË MOYEN YCNT 


FOR DY=-1 TO 1 

IF Y+Dw<#1 OR Y+D7:72 THEN 254 
FOR DCx=-1 TO 1 

IF K+D#<41 OR K+D4:X2 THEH £4f 


226 : 


239 : 
248 : 
254 : 


294 
360 
319 
334 
340 
345 


MO REDE + EVE RE DK +0 241 
HEXT D 

MEXT DY 

MEXT H 


GN=GN+1 
GOSUE 506 
GOTO 1584 
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509 REM-----------—- AFFICHAGE 
519 : 

515 H1=<ÿ 

528 : 

530 FÜR H=1 TO HC 

348 :AA=HAL Ho: VY= YEN 

541 :FOR DY=-1 TO 1:FOR DxX=-1 TO 1 

542 : HekK+DE Te TY+DT 

543 : IF V#x,"3=0 THEN 565 

545 : IF W#,%2<=2 THEN PLOT X,Y,16:G0T0 365 
550 :IF VOX, 223 THEN PLOT #,%,18:GOTO 564 

555 : IF Vé#4,Y9=25 THEN PLOT #,%,16: GOT 565 
598 :IF SCRNC#K,Y3=18 THEN IF VOX. 3z4 THEH 564 
553 : GOTO 56: 

569 : 

562 :NI=MI+1 KI M1 = TIC NI er 

564 : 

565 : VCH,(2=û 

567 :HEXT DX:HE#T D 

572 HEXT H 

984 : 

985 NCeh1 

987 FOR H=1 TO NC: YYCMHI=TICHI:KACNIRAlCHOI:HEXT HW 
596 #$="GEMERATIOH : "4STRSE CH I4STRSE NC à 

608 PLOT 25,24.4% 

619 RETURH 
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Jeu de la vie haute résolution 


14 RE WIE4 JEU DE LA YIE HAUTE RESOLUTIONH 


25 DIM 446120." 12@) 
26 DIM #16124%,%16 1240 
34 CLS 
44 x1=2 
59 Y1=2 TE 

64 DIM WékE+1, 2410 





84 IMPUT "COMBIEH CE CELLULES "iNC 
85 PRINT 

29 FOR H=1 T9 HC 

194 :IHPUT "COCROOMHEES 4,4% "34, 
118 V6, Vies 

112 1 HACMH oz YO NO 

124 HEAT H 

124 HIRES:INKÉ 

125 GOSUE 599 


129 REM------ 
14a : 

159 FOR H=1 TO HEC 
168 :H=HXC ND: = T CH) 
174 : 


296 : FOR CY=-1 TO 1 
285 : IF Y+Dvr<Y1 OR Y+0Yr"2 THEN 2564 
218 : FOR D#=-1 TO 1 


215 : IF A+D#6H1 OR X+Dk2k2 THEH Z4f 
224 : 

234 : ME A+ DE, ND EVE CU D 4 À 
248 : HEAT D 

254 : MEXT DY 

299 : 

308 NEXT H 

318 : 


338 CN=GH+1 

348 GOSUE 54% 

342 :REM--- GCOSUE 639 Pour edition imPrimante 
345 GOTO 154 

350 : 
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OO: REM==SS<S esse AFFICHAGE. sense 

514 : 

515 Ni=& 

539 FOR H=i TO HC 

549 :HA=AACM ETC HO 

541 :FOR DY=-1 TO 1:FOR Dx=-1 TO 1 

542 : H=HA+DK: = +0" 

543 : IF VCx,Ti=4 THEN 565 

545 :IF WCx.tatez THEN CURSET 4,4: GOTO 565 

554 :IF Y#.1=3 THEH CURSET #,%,1:GO0OTO 564 

5556 IF Vox. Yiz?s THEH CURSET %,%.8:GOTO 565 

CIF POIHTÉX, i=-1 THEH IF Ve, Yü=d THEH 5664 
GOTO 565 


ñ 
œ 


IMA=N1+1: HTC MI OS VIENT ET 


NnnnConiun 


DONC 
PANEEN) 


569 Wet, = 
Gé? :HEMT Dxk:HEXT D 
578 HEXT H 


985 HC=H1 


597 FOR Hzi TO HO: VYCN Ie TIM AC NH IeAICHONEAT H 
534 PRINT "GEHERATIOH:":GHi" CELLULES :"3:HC 

644 : 

614 RETURH 

620 REM------- Edition imPrimante 

536 FOR Lzi& TO 4g 


649 :FOR C=15 TO 64 

654 : IF POINTEC,Liz-1 THEN LFRINT "4"; :GOTO 674 
669 : LPRIMT " "; 

674 : MEXT € 

689 :LPRIHT 

699 HEXT L 

695 LPRIHT':LPREINT "GEHE:"3GH:LPRIHT 

F64 RETURH 


* 
# KXX 
##X # # * 
HAXEX * * 
*# ## # XX ÀX 
XANTX # XANAX X 
*# LH #2 #X HAE HAX 
# _# # # # # 
EXLEAEX HET 
#  * * # # #4 *k*X + 
## Etre: #4 # * *x * 
LEAXE #  *#* KA ZX 
## #4 
KAXEE 
#XX KAX XAX 
# *X KAXXX 
EX XX X 
* *# 
X # *# 


sis 
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RECHERCFIE. DE: LA ‘PENTE 
D'UNE DROITE 


Si les jeux ne vous amusent plus, si la gestion vous ennuie, voici un domaine pour l'instant peu 
exploré : la reconnaissance de formes (sur un écran par exemple). 
Soit une droite dessinée sur un écran: 


PO 
P1 


p4 


e Nous voulons déterminer l'équation de cette droite. 

e Nous supposons que la droite ne présente pas de discontinuité. 

© Après avoir trouvé le premier point de la droite, nous recherchons tous les points de celle-ci 
en recherchant à partir de chaque point le point suivant. 


Point courant 
Point suivant cherché 


e Les coordonnées des points sont stockées dans 2 tables X() et Y{() 





e Par une méthode des moindres carrés, nous calculons la pente de la droite. Un coefficient de 
COVxy? 
VarX*VarY 


qualité égal à nous permet de déterminer si la courbe testée est bien une droite. 
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Recherche de la pente d’une droite 


338 


37 


399 
494 
414 
425 


118 


REM RFORM RECHERCHE DE LA PENTE C'UHE DROITE 


REM mm — Trace d'une droite Four essai 
HIRES 
CURSET 29,3,1 
DRAH 59,196.,2Z 
REM---————-— Recherche Premier Point 
FOR Y=Q@ TO 133 
: FOR #=@ TO 239 
: IF POINTS #,“)=-1 THEH 159 


:HEXT # 

HEXT 

PRIHT "ECRAH VIERGE":STOF 

PRINT "PREMIER POIHT:"ix" 

REM=sssessesessesseess Fecherche de Points 

AS RL TS RL :REM Premier Point 

ACz#:YC=" :RENM Foint courant 

FOR FTe2 TO 5 :REM 5 Points 2412515 

: FOR DEPL=1 TO 4 :RENM Deplacement entre 2 Points 
: FOR Yi=YC-1 TO YC+1 :REM Recherche Point suivant. 


FOR #1=xC-1 TO #C+1 
IF #1=#C THEN IF YC=Y1 THEH 274 


IF Y1=YA THEH IF X1=x*A THEH 274 
IF FOINTé#1,%109=-1 THEN #Az4C: Az YC: 4Cz#1 : “Cz1: GOÛTO 319 
HEAT #1 

: MEAT “1 

PRINT "OISCONTINHUITE":STOP 

:NEXT DCEPL 

APT ISAAC: VE PT 2=YC 

MEAT PT 

RENM--- 

HPF=S 

RE RM em mu me on ana ons ou Calcul de xmos et ymos 


Sah=Q:SY=4: «220 

FÜR I=i TO HF 

GHRSAHACT D SES ANCT D HBSAD4 AC I DHAC I 0 
MEXT I 

MES HP MES HP 


ORIC POUR TOUS 


436 
44 
459 
464 
474 
484 
430 
308 
319 
52A 
534 
549 
9330 
564 
578 
589 


REM=mmmmemmmn Calcul de cou ET war A var var" 
SCsg:Svy=4 

FÜR I1=i TO HP 

:SC2SC4HAC I DENC I D-AME TN 

LSUYREN ARC T IMAC I M4 
:S2zS2+ Ve I EYE I MEN 

HEAT I 

CYSSC'HNP : MAsEV HP: VYSSIC HF 

A=CY 24 :REM Fente 
B="YM-A##N 

RO=CYHCUSE NAN 

PRINT "PENTE:":A;i" COEFF QUALITE=";AQ: 


GET #$ 
TEAT 


Reconnaissance de figures composées de droites : 


e Comment déterminer un changement de direction ? 

e Un premier essai fournit la pente de la première droite. 

e Un 2° essai donne le même résultat. 

e Au 3: essai, nous constatons grâce au coefficient de qualité que les points ne sont plus 


alignés. 


1°" essai 


A 
se 2° essai 
A' 
\ 7 
KR 
\ 
\ + Changement 
\ 2 B de direction 
\ 
\ 
\ 
\ 
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L'éooro rio 
Ci D CN fo Gi 


Fa 
Far 


714 : 
73@ :) 


r4a 
r58 
768 


FEM RÛTF ROTATICH C'UHE FIGURE 


DIM 51544, %0 1545 


REM—-———— Trace d'une figure Pour essai 
HIRES 

AG=2G : *B=1 8:L=34:H=36 

CURSET : “6 a 

CURSET #f+L-2, @+H'E, 1 


GRAU -L 4,1 

DEAU &  ,-H,1 

CRAN L HE. 1 

CRAU GHZ, 1 

techéerche Premier Point 


na 
m 
= 
! 
! 
! 
; 
t 
I 
i 
x 


FOR Y=4 TO 135 
“= 


: FÜR: 9 TO 233 

IF POIHTÉ 4, 1=-1 THEN 156 
:MEAT # 
MEAT 


PRINT "ECRAH VIERGE" :STOF 


PRINT MPREMIER POIHT:";i%, 
REMzsessssmssesessze Éncerche de Foints 


:REM Point courant 


FOR P=3 T0 1984 


: FOR “Y1=YC-1 TO YC+1 :FREM Recherche Point 


FOR #1=4C-1 TO 4C+1 


EUivart. 


IF #1=xC THEH IF YC=Y1 THEH £F4 
IF POINTE “1,12€ %-1 THEH 274 
FOR I=i TO 3 :REM Retour arriere 
IF #1=#CP-1: THEH IF  Y1=YP-I5 THEH 274 
HEAT I 
ACek1:"CzT1:GOTO 314 
: MEX“T #1 
: MEXT “1 


‘PRINT "FIN": :GOTO 74 






‘IF KC=#é 33 THEH IF YC=Yi34 THEH 7684 


SRE TARN KPi=vC 
: CURS ET #C: VTC, B:CURSET ACC. 1 
HET PF 
REM=-- mm Fotation--- 
dé 123 TO F-1 
life CT Ta 
5 MAG: IF £%-. 091 AHC 5<,.@1 THEN S=4 
:CECOSC AC:IF Ci-,. 61 AND C£,.f1 THEH C=<@ 
AISAECHTES 
VIS TEC-AXS 
 CURSET 668+%1,60+%1%#1,4.1 
HET I 
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Robot 


Ce programme transforme un dessin en DATA sous forme de caractères semi-graphiques. 
Ces caractères semi-graphiques sont affichés très rapidement, permettant ainsi d'animer des 


figures. 


4% 


24 


136 
zaa 
214 
228 
238 
24@ 
250 
268 
erû 
288 
299 
390 
319 
324 
330 
344 
354 
1954 
1914 
1926 


1115 


LA Re bé ba bé be bi pè 
Dem Es be pa pes re 
SD QG Rigii ie 


RS DSNNSSnEL 


34 DIM LOS 


DATA 


CATA 
DATA 
C'ATA 
C'ATA 
C'ATA 
DATA 
DATA 
CATA 
CATA 
CATA 
CATA 
CATA 
CATA 
DATA 
DATA 
DATA 
DATA 
DATA 
CATA 
DATA 
DATA 
DATA 
DATA 


FÜR 
‘RE 
HE* 


F 
F 


: H 
me 
: D 


ANIMATION 





D ÉRETTSS: 
[D # + 
MO OER KL HE 
N° HET Cf ET 
# # 
D F HXX 
fn + * 
MOX KEEYKELXE 
[ # # 
MO OHEKETELHEX 
1 # £ 


*X 
# Lt Lt 
cu 
mn. 





*fe) Le) j*] | [+ 
ep pe ee 
+] 











x 


I=1 TO £4 
AD LG I 
TI 

Py=i TO 3 :REM 3 RANGEES 
OR Pal TO Z :RENM Z ELOCS PAF RANGEE 
QE Lei TO & °REM £ LIGHES PAF FANGEE 
Lise PY-11#8+L:PSECP-1 34641 
2e LieMIDSE LOS LI. PS.E 
EXT L 
séd+( PU TIKZ+F :REM ‘A' 1EF CARACTERE 
=C#E ‘REM C'EFLACEMENT MEMOIRE ECFAH 
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121 


122 


Dé De pb lb pb el pot 
ininoninenin en 


A 
ni 
& 
DC 


1543 








UAIT 364 
RE D'EPLACEMENT 
CLS 


FOR : zi TO 34 
Lure #4 16, "AE" 
PLOT %,11,"C0" 
PLOT #,12,"EF" 


AIT 5 
PLOT #18," 
PLOT #11," 


PLOT #,12," 
NET # 
STOP 
REM- = CY EIHAIRE--: DECIMAL 


à FOR H=i TO € 


:Ht=4 
L=LEHE 6€ H 0 
FOR M=1 TO 7 
HS=MIDSC HSE HD, M, 12 
IF “$="#" THEH R=1 ELSE F=û 





















244û HO=HC4REE EC EME 
(shit) HET M 
A6 POKE € A+C4+H-1 5, MC 
GF4 HEAT H 
454 RETUFH 
14 REM METHOLCE CIFECTE 
24 CATA id, 1 sn du Es :REM redefinition dé 
4 CATA 66,4, nd, 524,6 :RENM redefinition de E 
54: 
EE H=dEÉ :FEM adresse mémoire gcran 
F4 FÜR TO 1 :REN € caracteres 
SA Dé ACC VA" DC KB: REN A Fremier caractere 
94 2 FOR Heë TO F 
155 REAC HC:FOÉE H+C+H, HT 
114 HET H 
124 As . 
154 FLOT -19, "AE" 
145 , valeurs des codes en CATA £01 
154 FEM obtenues en aioutant au Frogramme Frecedant 
174 RE FRIHT HEC 
154 FE FREIHT 
ORIC POUR TOUS 


PAYSAGE 


Paysage 
Soleil, nuages, mer et le bateau avance! 
5 FEM FATSAGE 


14 HIFES:PAFER FINE à 


EE D CS US E E 


Rire 
UD D 


ESSOR NL 1 CIE LG 





“=RHDC 1 HZ 04 TE 


RSG+EHDE 1 CETLE 


:CURSET &,%,1 
G :FÜR Ris TO R:CIRCLE FIL'HEXT F1 
GS :HE#T H 


ee me LD TS M CR Lo 
QAR GREC Mi 


148 HEAT HI 
159 REM------ me SOLEIL 


214 CURSET 1,154,1 

224 FILL 49,1,2€ 

234 REM--- 

239 FOR AN=44968 TO 4DSéG+5 #4 STEF 4 
268 :POKE AM+1,35 

265 :POKE AM+5, 4 

278 HEXT An 

289 CURSET 25,.24,1 

290 FOR R=1 TO 1W:CIRCLE R,L:HEST K 


292 FOR A=@ TO 2*FI STEP Pl-18 
294 :R=18+RNDC 1 #8 

295 :H=RKCOS A): YERHSINC A) 

296 :CURSET 25,29, 1:DRAW #:%1 
298 EXT À 


314 FÜR “=1 TO 6 

320 :CURSET 44%, 144+",1 

339 CRAN 4@-2#T, 4.1 

344 HEXT 

350 REM-------- EATEALU MOEILE 
4Gà FOR “= 54 TO 244 

415 : FÜF “= TO È 

424 : CURSET a+ 14d+r. fi 





435 T H+4B= LE , 1444, 1 
444 % 
456 NEXT # 


CS 
Lo 
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DESSIN DE DÉS 


Dessins de dés 
Ce programme dessine des tires au hasard. 


15 FE Dessine 3 des tires au hasard 


a LORES f 

164 FOR TE=l TÙ 
119 :DE= M 
174 cHeTREIE: “elE 


i 
Ti 
Lee 


146 +1 


CE = _ 


FOR sl TO +4 
PLOT #1, 1-2, 17: FLOT #1: +417 
HET #1 

2 TO +4 


: FOR Yi 
"1.17: PLOT 44,117 





PLOT # 
HEXT 1 
IF DE=1 DR DE=S OK LES THEH FLOT +1,41," 


»2 THEM PLOT #,Y,"H":PLOT K+2,Y+2, "x" 
OT MR PLOT KB Ve MR PLOT Ka V4, "K": PLOT 


SSL Wii tai 
Cn Ridfimm Minis 





Fo Pi Pilote mre 


jt 


(IF DE=6 THEH FPLOT 41, OR PLOIT io Es Un 






HET TF: 
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TRACÉ DE COURBE 


Tracé de courbe avec graduation 
14 RENM TRACE CE COURBE favec Graduation 


24 : 

34 HECR=150:LECR=ZGE :REM Hauteur‘“lonaueur gran 
44 INPUT "BOÜRHE #1 "El 

SA INPUT MEORME #2 ";5EZ 

68 IHFUT "PAS ": FAS 


115 
124 
159 


75 X=B1:GOSUB 290 :v1=1: V2 
80 FOR #=81 TO E2 STEF PA 
188 : GOS 


Les 


:REM Mini 
‘REM Maxi 





135 : 


148 
154 
169 
17 
156 

LE 
136 
CR: 
246 
14 


Le 
22 
244 
e5sA 
264 
261 


Û 
Mn 
LE 


D 
Lay 


F3 Fo Fat 
HET 
en ER 


INDLQR-Ir M. 


Po Fo Fo Fo Po Fo © 
DD). Je 


288 


ni 
5 
Lee] 


344 


DIRES 
= :RENM Echel 
‘REM Echel 


mm M 


l 
le 


A 
‘i£=@ THEH Y=<HECR 





CF: g,1 


ABS: F1 HE: CURSET 1,%,1:CRAM 


IF Bz=;4 THEN IF Blé THEH #=ABS6E1 #EXx: CURSET #,1,1:DRAH G,HE 


1 
REM=sSSeS 
FOR “<E1 TO EZ STEF FAS 
:GOS UE 234 
:  K°B1 2XEX 





eee ET S4,8V, 1 
HET 
REM D em + cm Graduations 
ane AESC 1 HE +: #21: Es Eds GOSUR 273 
=HECR-- ABS 1 2HEY+3 “eLECR-S:B2BZ:GOSUE ETS 
C ÆAESC ET THE: B=1: COSUB rc) 
: H=fAES El #Ex E= ve: GOSUE 273 










; IF XPLECR+18 THEN X=LECR-2 


IF Y?HECR+14 THEN Y=HECR/2 


CURSET 4,3: 4@eS TRS ES: IF ASCLAUSE THEM #S2RICHTSE #6, LEMC ES 


FÜR Feil TO LEMHC% CeASCE MIDSC 46, PF, 1 CURSET K+P4S. TZ: CHAR C. 


HEXT F 
RETURH 


GET #% 

TEXT 

EHD 

REMISE SSSR SSSR EE ESS Courbe a tracer —--- 
ESTHER CES 

RETLFH 
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125 


Copie écran — imprimante SEIKOSHA (haute résolution) 


126 


1G REM  COFIE ECRAH-->IMPRIMANTE SEIKOSHA (HAUTE RESOLUTIOH 
34 DIM TéZ4Wi:FOKE 49,255: CALL #E6SCA:LPRINT :Y=<g 


44 FÜR M=1 TO 28 


:GOSUE 296 
: FÜR M=1 TO F 


GOSUE 364 


: MEXT M 


GOSUE 444 
HET H 
GÜSUE ZE 
FOR M=i TD 4 

GOSUE 3 
ee ii 
OSUE fé: CALL #ESGd4:STOF 


Û 
GE 


:HE#T I: RETURN 


LiDE mms 


REM en Femise 4 zer 
FOR Iz1 TO Z4%: T1 )=128 
REN---———-— Traitement PF: 
FOR #=4 TD € 


& ps à 





SPOINTCH VOIR Pa-1 THEN TO DSTCH +200 1) 
MEXT x 

V=Y+1 

RETURN 

REM-—————— Edition 


LRRIHT | CHRSC#E 
FOR Isi T0 ZE 





A LFÉIHT:RETUEH 





STE or 
 . S.Z2S 


ORIC POUR TOUS 


Conduite voiture. 


ii REM COHCUITE YOTTURE 














- GEMERATION WOLTUIRE 


- ROUTE 
| M+CHEME ÊTES à 


ER Fig Edo moi tire 


7 THEN 








PRINT El1güi" EMM:HAIT 200: GOT 









CU 


US 
CRC DE 








7 THEN LPRINT "3 :COTO 688 


me POLE MOITURE VERTE 





143 PLOT HWél, 
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Pièges 


18 KEM FIEGES 

13 KREM 3 monstres vous Poursuivent 

14 REM “ous Cherchez à les faire tomber 
16 REM dans des Fieges 


13 PRINT CHR$CE 


EN] 


34 LÜRES 
4g “= " vitesse monstres 

45 M=f " monstres morts 

54 AC 18: Ce: PLOT CC IT ‘vos cocrdonees 


FE FOR 11 T0 3 








BA SAMI = INTE RHDC 1 24380: IF ABSC AMI ACCUS THEN 54 
24 TMC IOS=INTERNDE 124230: IF ABSC MC I I-YCULS THEH 364 
25 :PLOT AMI 2, "MC 12.13 " monsÈtres Jaunes 
144 :PLOT RMD 1 2##C+10, RHD6 1 2#YTC4F, 24 ‘ Pieñes bleus 
118 HEXT I 
WAIT 249 
RENM------ 


FÜR Iz1 T0 3 
HePEERS #CGE IF #e56 THEH ZEG :REM test clavier 
FLOT #C, TC 16 
IF #=197£ THEH IF &C:4 THEH hote Î 
IF #=168 THEH IF 
IF x=154  THEH Le ) C 
IF #%156 THEH IF Ca THEH Ce rC-1 
FLÜT #0. Ye 17 






CI5=@ THEH 4H 
: Tai ASTM 
244 : AE I SOMME IC EM 
254 : NE DEN LC SGNC MC 1 9-C DAV D 







D Nie n BEUMJNnUEURIR 
D SU See QE SOON 


Pas Po Po PP pe pe et bé pe pp pe 
ï 





255 + IF SURNE ME L3 VC DO 3< #24 THEN EF 
LS Pièges 
Lg à AMI =@ ME I ee PLOT A, A LE: MM: GOTO SA 

279 :REM--- test devore 

275 1 MISINTÉ EMI T 9: MIS IHTE MIT 

284 : PLOT “A, %H, 16: PLOT #1.%1:13 

RE à 

296 : IF Ki=kC AND Y1=YC THEH FLOT £,2, "PERDU": HAIT 564: G0TO 24 
LAS à 

ET : IF M=3 THEH FLOT &,2, "GAGHE":UAIT 36G:GOTO 24 

448 HEXT I 

419 GOTO 134 
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Tas de cubes 


Cubes multicolores 
/ 


14 FEM THS LE CUEES 
38 REM Les cubes multicolores tombent du haut de l'ecran 
32 REM reébhondissent ét forment un tas multicolore 


44 LOÜRESS 
24 Es el TO SE: PLOT Ed 1: HET # 
ER 


A, 


IQ 
D 


ui Cr 
DA Rx EX 


sc 
Ca LHTÉ HD 1 347241 
à HAIT 4 
106 FOR “el TO 4 
‘IF 







*16 THEH 158 
‘IF A“ieié THEH FLOT 1. 16: PLOT 4,164 


HET 4 


3 


: SHOT 
C=THTE FMC 
‘FÜR Kzi T0 £4 
IF SCEHE SE, asie THEH FLOT fe 1, 16: FLOT 6, 0 LÉ et 1: GOT 1 


“ED IF Deë THEN Ds-1 





S © © ip Un @: 


& THEN FÜ 
HD: PLOT KT 1640 


IF SCRHE 0 2 
FLOT #1 1e 
FIG: MAIT 16 
et 1 

HET 

GÜTO FE 





Sn EG 





Pois pepe (Ne pe pe pe pe 
Pire go D QU B Gin nm 


Dim 
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Soucoupe 


14 FEM SOUCOUFE 


25 FEM Le joueur doit rattraper des Faw 
26 FEM tombant du haut de l'ecran 


LL 


44 LÜRESE 
42 PRINT CHRSE LT RE SuFPression CUrgseur 


Fi VE d: Hs :REM &oucoure 
5e FLOT 19 7, "APPUYER SUR <ESPACE:" 
64 HeH+T 
Fa CP 

84 FÜR # 





ve TO KSHE: FLÛT K TES IF HET # 


= 
Lt 


APes +IMTÉ RME 1 CEE 1 Peg : Ce té THTE RHDE IUIRE à 
FLOT #F YF LC 

MAIT 
F: E [| né cts met ons cos anus 06 sn 206 
MpsEETE IE 








pe me me GE AL RE 
LM" THEH DFal 


Der AR EUX Ex | 





Ti 
ni 


LC 


NE Gi mi 


=, 
Ex, 


HAIT 3 
IF SCRMCHP, YP+1915 AND YP<23 THEN 170 
PLOT XS,YS.16:PLOT AS+1,75,16:PLOT KS+2 









16: GOT SA 


IF OYPLES THEN Fer +l 


CU JM mi 





A THEH SEE 
ZE THEH PLOT SE, lé: PLOT &£4+1 6 16: FLÛT #S+e, “5, 16: GÛT 


il D 
DOUCE: 
ER] 


ire 












A IF SCRMEEP, VF THEH 364 

ä FEN-- 9a ne 

GO Rski+l: se TNTERSHET GE IS PLOT EE, 2, MECORE : MASTER SE HUE ON 
5 MAIT Te 
A FLOT # Ar 

4 FLOT sé: FPLÜT #6, 8, 16: PLOT #54, SE 
fi 

5 

Le 

FA 





GTI 56 


4 FE Hffichage nouvelles Positions 
à PLOT #81, 5. 16: PLÜT #S4+E, TS, 17 


à PLÛIT #P,YP-1, 16: PLOT &F TFC 
ä GÜTO 136 





Den ad dat Qt da Pan Pa Pan Pi Pi Pi Pi lo lo Mi QClinrerenrmennHrek ke be ii 


JB Poe me da QUO UD 00 JL 
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Affichage publicitaire 


ne 


P 
O 


U 


R 
ee 
REN AFFICHAGE PUBLICITAIRE SUOT 


FE Affiche un message sur le Perimetre d'un rectangle 


VOS " Longueur “hautenut 
ce CaleuT Cocrdonness affichage 





FOR Ii TO H 
Lu LT DL TL He TT 
HET TI 


FOR Izi TO L 
BC LH ele TEE LH ee 
HEXT I 


BOIRE JUL RI 


FOR Izi TO H 

29 46 L+H+LAT De PE LH+L+T ee T 

26 MEAT I 

29, REMr=SS Rss 

39 A$="... ,ORIC, POUR, TOUS ss ounusunnnus nur L 
35 LGsL#Z+H#E+] 

44 AB=LEFTSC AS, LE 1: LEeLENC ES 0 


OPO TIM pe pes pe papes —} Di CA Le Di Pi 


64 HS=RIGHTEC HS, 1 'LEFTSC HS, L-1 5 


F9 : 

169 FOR I=1 TO L 

119 PLOT HIS MT MID ES, I, 15 
128 HEAT TI 

39 GOTO 64 
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Cubes multicolores 


Pie 
EE AN | 


1 RENM  CUEES MULTICOLORES 


REF Des cubes multicolores 


* FENM de l'ecran et s'empFi 








Lorbent du Haut 
KE TE. 





3e LORESE 
à one CHESHE LE  Annilation curseur. ct 








OS | 
OR Fcl 10 N 
ce THTÉ RAIDE LH LE e e THTE RHODES 
:PLOT avait 





HE 


cé 1: Dé EPL: PLOT AC 


C5 4 Ti 
DR mou 






— 
Der 


LCMETE TS GOT 156 


16 THEI BEF Ge INTE RHDC À 2ELE 1e GOT 


nm 


MOTOR LÉ: PLOT EP CFO, CCF 


re 
nes 
DS D DC Œ 


C2 Fo 
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Maison 


16 FENM MAT EUH 
2 : 

SE : 

25 : 

4S CF=r REM couleur de ford 

59 HIFES:PAFER CF: IHEI 

69 REM---- meme nee Toit rouge 

S4 g=108:"g= 1604 

55 AT=S4: Let :REN hauteur toit-longueur 
GA FOR Ii 
: CURSET 
:CEAU L + 
HEXT I 
REM--—— mm Cheminées rouge 
FÜR I=1 TO 14 

CURSET “6415, 6-14. 1 

:CEAN 5,6, 1 


HEHT I 

A ES 2 CE Em 

sien TEEN He: Led: Less: GOSUE 5 te | 
SEM ee fengtre jaune Heure NOIRE 
FOR I=1 TO 15 Bleu foncé 

243 :CURSET #@+104, @+HT+1 54. 1 

244 :DÉAU 15:41 

245 HEAT I 


Ex] 


ui 
EE 1 M 


À, 
Fi 


A4 D Dit 
Î 
De T 
F 
= 
A 
+ 
+ 
re 


Rouge 





in nu Da GQMmE 


es 
Ii 


üotimnenrmn hs iii 


i 
&m 
RARES RE CS LR ELA) 


EE CURSET : ME + LES EH HT 415 LE DEAN 6.15, 4 
234 CURSET “+ 16, VEHHT+15+152, L1'CEAU 15.86.64 
LA REM-- ee no one eo ee Forte noire 

ESA CURSET A+ 
&ne FILL 35 1. 
ESF CURSET #84 
268 FILL 351: 
AE + 


+ 
LEE 
+55, rarus ‘1 
lé+d 
CURSET : 45 


Eu CENT +56, 1 :FEM Foignee 





RENM---—————— Changement couleur de fond CoPtionnel 









290 UAIT 268 
295 REM=--mm Dleu 

296 CURSET CH14L41Y11:FILL H+1:1:16+6: PAPER 6:HAIT 198 
305 CURSET CK1+Lo+1:%1,1:FILL H+i:1,16+8:PAFER G:MAIT 108 


224 CURSET cél+Liti, 1, L'FILL H+1.1.:16+CF:FAFER CF 
463 GOTO 2354 
994 RENM--- nee memes op round bacE Ground 

Sag CURSET 1.1. Z:FILL H:l:16+4 :RENM back Grand bleu 
SG CURSET #14. "1. ES: FILL Hi 1 16é+CF 


a: | 
= 
MN & 


CURSET #1-12,%1,2:FILL H:1.3 FER ForeGround autre 
CURSET MPRSERTEET FILL H:1: 
FETLEH 


nininir 
Du] 
DRE 


LR 
Fe 
LEE 
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Soucoupe volante 


14 FEN SOUCQURE YOLENTE 


Soucoupe ses 
rouge 


H 


LT rl Cible bleue 





8,68: CLE PAPERT: IH 





24, "HPPugEr Sur CESFACE:" 
RD 1 EG AT: Cest: FLOT ECC, Ci PLOT Cet, Es 4 


HriEel MEN bobines gcrameRens 





155 FOR lei TO S:YPCI RQ XPé LB HET 1 
168 FOR D=#1 TO X2 STEP 5 





:PLOT ESS, US d'PLOT 5, TS, ECS PEN SOUcOuFe rousse 


Er 


°IF KHEYS="" THEH 155 

FÜR 1si TO 5 

CIF FCI UeS THEH TPCI EME PC Tee: GÜTO 185 
:HEAT TI 


:FÜR Isi TO 
IF “PIII=E 
IF WROTE ENC OF: 
145 ESFLOCGE : PLOT #[C: 
AIT A 

136 GITE 













MR POS HRIT SE: FLOT O1 VO 1 






spPe To À 
THEM CI Dev Pe I 41 PLOT MRC IPC IPS 


S=-i :FEM inversion £ens 
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NE 
at ii 





Lai Lei Ft 
ds 
it 


QU Où Pate Co in 


=; 
Ex] 


& 
S SG in 


DSK] 


Afin pes bee pe Lt Qi —j Un Li 


1 REM des 


DAELTELUE LA) 


EM  IMMEUBLES CE COULEURS 


ing des immeubles de couleur aléatoire 


LL 


LE 


REM 

CLS 

FE... pédéefinition graphique de ‘1° 
DATA 63.693, 51:591;:51.62,63.63 


As BE: DeAECC " L'UEE 


FÜR He TO F 

:REAC HC:PFOKE A+D+H, HD 

HEATH 

RE = ee cu aux onto ane cou ane ane on ae ee a mn te ou 
ae] ARTS 


HB=KE : B= 0 





FOR Hel TO 5 :RENM © immeubles 
: HER HD L'IHÉ+S 

:LeRHO6 1 Hd+z 

CSRHO AE 

:GOSUE 534 

: AB=KE+L+1 

HEAT H 

STÛF 

RE mm Dessin immeuble --- 
FOR ‘f=YB TO TB-H STEF-1 

: HFS=<CHASE C 5 

FOR #ei TO L 

: AFS=AFE4NI" 

:HNEXT %# 

:PLOT 6, AFS 


HEXT / 
RETURH F0 





























































































































ÊO- Caractère redéfini. 
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GENERATION DE CARACTERES 


Nous reprenons le programme ‘ROBOT où un dessin en ‘DATA’ est reproduit à l’aide 
de caractères graphiques. Mais cette fois, le dessin d’origine est réalisé directement 
à l'écran suivant le principe du ‘TELECRAN. 


e ‘L’ permet de déplacer le curseur sans dessiner (ou d’effacer) 
e ‘F' termine le dessin. 


La deuxième partie du programme calcule les valeurs décimales nécessaires 
à la définition des caractères choisis (a, b, c, d, sur l'exemple). 


Valeurs décimales 


a b c 
0 0 27 
3 48 29 
7 56 14 

15 . 
29 


. 

. . 
31 . . 

. . 

. . 





31 
81 


D 2 ui 
ces. REÈTe 

















b 
























































Nous avons prévu des dessins pouvant comporter jusqu'à 16 x 12 points. 

Lorsque le dessin est affiché sous forme graphique, nous avons la faculté de modifier 
le dessin d’origine et d'obtenir un nouveau dessin graphique ainsi que de nouvelles 
valeurs décimales. 
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Le programme ci-dessous utilise les valeurs décimales obtenues pour redéfinir 
les caractères a, b, c, d. 


C'ATHA 
CATA E 
CATA EF: 
CATA Sd, 
A= CHASSE 


im 





FOR CAz=1i TO REM déaracteres 
: Mat ge ROM: DCE 





FOR 


FD SS SR NON RS 


se ét pe ee Li CU ef in ln Le Li Fr 


Het TO 7 
[a REAC HOC:FOÉE A+D+H, HD 
A :HEAT H 
A HEXT CH 
A : 
ä PLOT 14,14, "ab" 
SA FLOT 14,11,"cd" 


Extensions : 
e Nous avons fait ‘pivoter’ le dessin obtenu (voir rotation de figures). 
Deux problèmes se posent : 
1) Les points de l’écran ont une hauteur différente de la largeur. 
Par conséquent, après une rotation de 90°, une figure se trouve ‘aplatie’. 
2) Pour des rotations inférieures à 90°, les dessins ne sont pas précis. 


e Nous pourrions générer des figures agrandies. Les figures obtenues permettraient 
de simuler des grossissements. 


(2X X) 





FOR DY=-1 TO ÿ 
FOR DX=-1 TO ÿ 
R1(2xX+DX,2xY+DY)R@(X,Y) 
NEXT DX 
NEXT DY 


Sur l'exemple, la taille est multipliée par 2. Un point de la figure d’origine est remplacé 
par 4 points. 
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Génération de caractères 


138 





14 FEM GEHERATION CE CARACTERES 
ë REM Clé Foints 


2 OI Ré 13,172, R1013,17) 
4 [ 


pe ce one v004 ce cu cms te ne 0e om te come me cadre 
sg TO LS: FLOT RL Le 
f TI AP: PLOT #18: FLOT 1 


em eo 9 2 1 EE ee pdt 





Ë 3, "LELEVER < ESEAISSER <F=FIH" 
fi 

Fi Cé=kE TS IF Cg<sNt THEH 4 

ï FLOT a Talr: PLOT a Ts dE: GÜTO SE 


re 
12 


A 


fF Le THEH FLOT #1 


_ 
Ut 










14 CeASCE CS 

A IF C=S THEH IF “+1 THEH 

& IF CES THEM IF #£1Z THEH 

4 IF Ce14 THEH IF “<16 THEH ‘= 
G IF Csii THEH IF “1 THEH ‘= 
A IF Cé="L" THEH 


Û 
ï 
L=1 
IF Cé="E" THEH Leg 
IF Cg="F" THEH ZA 
GOT 54 


u— 


DORNREE 


mn D 


FOR “ei TO 16 
‘FÜR “si TO 1€ 


ren 
a 


5 
1 

11 
12 
15 
t4 
16 
17 
17 
i 

1 


294 HEXT * 


ORIC POUR TOUS 


£56 IF SCRNC EH, Vis1r THEN RG. AS lELSE FA, 0 
24 MEXHT 





Cp) 


FOR Le 1 TO E 
List LG 1 HéeL : Par CLeT THE 
HD=E 
FOR #el TO 6 






on 

Fee 

# 

Fi 

ES 
È 





HET 

FÜÛÉE € A+Ci+le 1, HD 

FLOT LEE Le HEC Cle ES, SL, STRSE HE EN On 
HEST L 

HET UL 

HET Li 










FLÛTE, EE, 
PLEIT SE 


SA 
364 FLOT : CR 1: "RETOURNEMENT EQe er 
GET F% 

à Fe NON THEH 35 


FOR Lei TO 16 
‘FÜR Cei TO LE 
RAC Lier Let 
HEXT D 
MEET L 


Eux. CE 


Hi M 10 
di it 







AE LX | 


FOR Lei T0 16 
FOR Cet TO LE 
RAC, L'efiieLi 
HET © 








M et Et et pe pes LU 
Be pt tt pe be (OU 
DA£RUeQMES 

DRE SR Re © 0 
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Ciel étoilé multicolore 


FEM CIEL ETOILE MULTICOLORE 


A : 

5 CATA 
4 CATA 
14 CATA 3 





CATA 64, 
= 4 


FOR CA=1 TO 4 
‘À a"2-1+CA:DEC#E 
:FOR H=@ TO 7 

FEAC HOC:PÛKE A+C+H, HEC 
:HEXT H 
HEAT CA 





FLOT 14,14."ab" 
PLAT 14,11, "cd" 


Di Po fes pe pe ps pt pe pe pt et LD US Un He Li Pneu Li On 2 


ie BONNE Or Du ONE 


NRA EN EUX EU RER ELA ELA EX EUX ES 









THEN 215 
32 THEN 214 


Ce PLOT 14 TC 





#T+l "cd" 
HEAT E 
AIT 5394 


PAFERE: HAIT 246 
FAPERF :MHAIT 29% 
FAPERSG : HAIT 5 
GOTO 354 


So D CN D 
ro 
Le 
Dex] 


Lab Un Fa it Fr 
Di EN He Ge 9 ni a Li 


Lo QD à 
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RENM Dessine des etoiles multic 


olores 


:RENM dcaracter 


Saut obstacles 


CRE 
DRE ENX 


nn nue 


DEA, 


De D ps bé pe LU OU 4) Tu Un La Le Fa He LE Lidrimip io -jMin 
px nn Eiifini 


1 


CA CA CA CN Go Pa me D Gi 
LDERSURS, EUX Ex EEE, 


FRENM SAUT JESTACLES 
REN Arpuuer sur <ESPACE® Pour sauter les obstacles 


REM en nnennnnnnnne DESSIN 
DATA 3 3,1: 

DATA 
DATA 3 
DATA 





DATA ZE, 
Azd4éHEE | 
REM-----— mm mme FECEFIHITIOH 4.,.,,H 
FÜR CA=i TO & 

CSASCE Mate + CA: DSC#S 

FOR He TO F 

: REAC HC:POÉE A+D+H, HT 

:HEXT H 

HET CA 


CLS: IHKd4:FAPERT 
“=14 


FOR #=ÿ TO GS: PLOT V4, CHASSE CC HEXT 


169 PLOT 15,%+1,"1" 


174 PLOT E#5, +1, "I" 


194 REM-- 
295 FÜR #=2 TO 36 STEFI 


206 :IF SCRHC A1, +10 





3 THEH 243 


287: SHOÛT : PD=PD+1 : PLOTEMG, 26, STRSGE PO" DÉSTACLESS GOT 16 


299 :IF SCRHC#K,Y+12=33 THEH SHOOT :PD=PD+1:FLOT 26,28, STR$&C FOIE" ES 
TACLES 5 5" 







:PLOT X:%, "ab" 
:PLOT X:Y+1, "cd" 
‘HAIT 19 

:PLOT Xovo" " 
:PLOT Kevin" 


IF KEY#i2"" THEN GOSUE 54 


198 MEAT 







A MAIT 


PSaPE+1:PLOT 2,22, TRSCPS 4" PASSAGECS 2" 
GOTO 164 
RE eme SAUT 


FLOT ie, Met PLOT &,%, 9h" 





Halo" MPLOT Hey" 
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JEU DU PENDU 


e Voici le classique JEU DU PENDU. Celui-ci présente cependant une particularité : 
le pendu agite les pieds avant d’expirer. 


Lettre 
utilisée 






ABeDEFGHIJK __7 





Fond vert 


Quelle lettre ? 


Les lettres de l'alphabet qui n’ont pas encore été utilisées sont affichées en haut 
de l'écran. 


Avant d'afficher un caractère sur l'écran avec CHAR code, JEU, COULEUR, 

nous effaçons le caractère précédent avec CHAR 127, 0, 0,. (0 représente la couleur 
de fond). Sans cet effacement préalable, il y aurait superposition de l’ancien 

et du nouveau caractère. 
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Jeu du pendu 













j REM JEU CU FEHOGU 
2h REM C.HIRCH 


HINMENM HSFFF 
CI MOTSE SE 
FOR Izi TO SE 
RERC MOTSCIUCIF MOTSC TI EN" THEN HMEeI- 1: GOTO SE 
HE#T I 
CIM AHSÈEE 






FENM affichage mot 
“REM affichage a1Fhabet 


“+5 CA OM Gi do do Le 
D 


meme er 
a 5: AHSC I CHE IH MENT I :REM alphabet 

5] DHEA 

[g À mme Fond gt Pour. Féridu 

TE ,95 ,3:FILL 96,1:16+2:CURSET 194,95 ,3:FILL 998,1,164+7 
75 REM------— 

119 CURSET 4, AS: FOR Tel TO Zé:CHAR ASC AM&C T 0, 6, 1: CLURMON 5, 4,5% 
HEAT I 

138 


145 M=RNDE À HÉMMEL MOTS MOTS 4 3: LeLENE MOTS 5 

145 BPL=<G: POS: LUSg="" 

169 CURSET #6.%4,3:FO0R P=l TO L'CHAR 46.68,1:CURMOY 16, 6,3:HEXT F 
165 : 

179 INHPUT'Guelle lettre "LS: PRIHT:FEAIHT 

180 IF LEHÉLUS'=4 THEH 155 

151 FOR P=i TO LEHCLUS 5 RENM lettre utiliseer 

182 IF Lé=MID# LUS. F,1% THEH GÜSUE SGA: GOT £d4d 

153 HEXT F 

184 REM-----—— bonne lettre 

185 B=û 

134 FÜR Fzl TO L 

2608 :IF Lé=MICDS MOTS, F,1% THEH Ez1:LUSeLUS4+LS:EFLEBFL4T: GOSUE FE: G 
OSUE 15 

214 HEAT PF 

224 IF Et THEH GOSUE SG@:GOSUE 15 

225 IF EFL=L THEWN FRIHT "ERAYVO, . ":HAIT 344: GOTO 54 


234 
244 IF FPDsS THEH FRINT "PERDU, Le mot etait:"; MOTS: MAIT SG: GOT 
FA 


254 GOTO 1F4 


52 PROGRAMMES | 143 


GA REM ee nec nee me me me affichase mot et a1Fhabet 
A4 © SE Es TE: CHAF 127,04, 6: CHAR ASC LS eu FETULEH 
CURSET #1: VAE: CHAR LE, 61 Er: CHAF. 46,109, 1: 





895 REM-———— dessin Perdu men 
364 POzPO+T:FTHG 

914 ON PO GOSUE 929,936 
416 : 

328 Ê UF: ul 


G, 54n, HSE, HE, SFO, SEA, SE Et: RETURN 


:RETLIEH 
A, L'RETUEH 
nr REUeRN 


3:CRAN € 
.3:DFAM Ë 
: CEA 
DÉAU 
. 2: DEAN 6,2, 

,3:CIRCLE 5. 1:RETURH 

3: DRAM GES, L'CURSET 608, 180.5: DFA 4, 4,1: RETURH 








D eo oo 


ii jt do do Fo 





HE Er LE ! 
BCRAU 5,1%, 150 ET FH. 1 DEF 5 
: CAL 3 s AH 
DEAN —: 








CURE ET 


MAIT 1 





quan 
G C0 C9 D 4 





bb ie br 





DM 


as À 
‘ Fa LE e) 
] ICEAM es, RS CERTES DA 3,34 L'MAIT 5 
‘15 CRAN +5, Pa LES Se DEAN GS 


LES THEM 3 





DU iDiIDiDiIQun 
1 LL CO CO Où Où 
4e DD CG M CR 


: RETURH 
tre DATA MAISON, SAFIH, BROLIETTE., CIDRE, CASSETTE, VELO, PATINS, HOISETT 
E.ORIC:# 


144 | oRIC POUR TOUS 


Météorites 
à FEM HETEURITES 





Une sc 


des met 









= Définition soucou’Pet of tion 1 





36 FOR H=@ TO 7:R ED NDBDKE F+D+H, HO: HEXT H 
48 REM--—— 
Sa PRINT CHERS 17 3 :REM suPPression curseur 





SA els: ue: 
34 CLE:FAFERE 
FPEIHT:FEINT:FEIHT:FEIHT 

FOR Lei TO 14844 

HS RNDOE À HSE LE PRINT SPC NS NE 





Eu] 


DBDBJYIHMNAME 
Fo © io D DU DS 


CIF SCRHE EM, UE ASC MAN THEH 1ÉG:REM test collision 


:EXPLODE : PAPERS : UAIT 36: PAPER: PLOT 26,23, "SCORE : "HSTRGE Li 
MAIT SG: GOTI 66 


:PLOT A4, 4-1," REM effacement ancienne Fogition 
PLOT 4,4, SC RENM nouvelle Position 


Dh Da pb ji bb pi pb x a 


186 Hama: ATEN :FEM ancienne Fosition 


186 PEU GSM test clavier 

A :#=FEEKS#EGGO:IF #=56 THEH 394 

(si) .TF He THEN IF #V<36 THEN Vas 
9 Eia #=lr THEH IF KVSZ THEH vas 





310 RE FEERL #28 peut etre remPlace Par ÆS<ÉETS:IF x#z"" THEN 






+ obtenir UNE SOUCOUFE FOuUge, Faire: 


BE PLOT 41,4, CHRSC 1 +SCS+CHRSE à 3 


- 


2 PS 
x 
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Bombardement ville 


146 













FEM ECMEARCEMENT YILLE 


FEM Uné soucouFe bombarde des immeukhles 

26 FENM 

5 PRINT CHEF :RENM suFPréession curseur c£rl 
GA RE ee oo eve redefinition graFhidque de ‘1° 





READ HD:PORE R+D+bl HO: HEXT H 
Û Sa He es 2e _Def i nition SOUCOUE Es 


ÈS 63 





FOR Hg Ta READ HO:PÛEÉE A+C4h, HO:HEST OH 
REF Definition Frodiectile 
CATA 6,6, 4,6,64,46,6 

Fe" CeASCE PS ES 

FÜR He TO F:RERC MD:FÛEE A+C+tis HO: HEZT H 


ini 5 immeubles 









mn 
ee 
2 


DU IN 


: “A A à "APPUYER ŒEUr éesFaces" 
FOIE Hal TO 5 
:H= SRNDC 1 HE +E 5e press 


MD ii 


LE REA EUX, 


Ex] 


Ex, 








FOR Ye TO YE-H 
:AFH<CHESE Ci 
FOR el TO L'AFÉ<AFÉA" I HERT 
:PLÜT #6," HF 

MEAT 

FETLUEH 


ORIC POUR TOUS 


Ee) 


Di 
H 

i 

i 

} 

È 

il 

Î 

} 

ë 

} 

} 

L 

i 

i 

3 

î 

} 

i 
m 
3 
aa] 
TT 
na) 
= 
m 
= 
m 
— 





DARLTE LS 


:REM coordonness soucouFe-sens 


EEE 
Le FO SJ 
; 


Dex 


44 FÜR Czsl T0 #Z STEF & 

454 :#5e0 

dSd :IF YS517 THEH WAIT 546: GOTO 144 :REN Fin 

455 :IF SCEHCES, Ses THEH ESPLODE: PAPER S:HNAIT 264: PAFERG:UAIT 44% 
:GOTO 164 

déf :PLÜOT #45-5,%8, 1: PLOT #5,%5,8C$ :REM SOUCOUFE Fous 
474 : 

424 :IF ÉEvYS="" THEN SEE REM départ tir 

FÜR Il T0 

35 IF VYPCI EE THEH PCI EVE PCT ses: COTO SG 
:MEXT I 


Les 





DE 


pe 
Lu 
x, 


LD ii 
D So GR UN DS GG US Où JU 


FÜR Is1i TO 4 :RENM avance Froiectiles 
: IF YFCI Se THEN 566 
IF SCRMESPCI D, PET IUSSE THEH 554 


FLOT PE 
IF YTFLI 
: IF ACTE 
:HEAT I 
:SOUHD 1, 043,1 

HEAT [Ci 

PLAIT 45,45," Miel: lent: Hama: Gus :REN  Inversion sens 
“S=rs+1 


ä GOT 44 






RS DURS 
3 THEN YPT = YPE TI +1: PLOT #FCIOD. PCI TPS 
23 THEH PCI eG PCT 1e 


ro GO DDASS Bi 


DIM MNONUNNNANIN 
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Tir sur cible numérique 


Pi = 
= 
Fin 





M L 
nt 


Rimini miens 


RE AD LE Cu es QU CR 28 He Hit 





ee Di fire be Ti 


GS D D CH di 


Fifinmbh np 








af 


148 


DAS EE 
17 4 
" HE: 
ZT — 
= = 


Ê 
F: E | on men mu 
FÜF 







5 FheMICé 
! PLOT 1,21 


FEM TIF SUR CIBLE HUMERTOUE 
FEN 
REN 


e de à chiffres défi 
st FroFort ion 
frapFe gt ir 

input donne Lau Lémis FE 
[LS PLOT 15,14, CHRS 1 +" APFuuer & 









LES" " :DP=G:NeG 
meme Choix de chiffres au hasard = 
=] TO S 

SR +ETRSE LHTÉEHDE 1 ES +1 







RENT con donnges 
FENM cible 
:FEN affichage cible 





| TP=2S6 ‘RENM temFs Fartie 
REMSESS SES eee 
FLOT &LC, LC, CES 


CER= UNIES SERRES RERTRER ER RRERERRSSE à 
PLOT A&TYT, "en 


IF EYE ZM THEN CF=1 °RENM Test depart 
IF CF THEH 356 


PLOT XT;YT," ” 
YT=YT-1 

PLOT XT:YT, "x" 

IF YT=YC+1 THEN 5 


HEH+L:IF ME  THEH H=G:GOTO 118 
TFETF +1 

GOT 14 

REM een ne nee ane RESULTAT ---- 


POINTS : 100 
TEMPS : 47 


CES, AT-HC+3, 12 

: "POINTE : "+CHRSC EPS 
"TEMPS: "HSTREE TE «1080 
Se SCALE FE à 

FLOT 15,28 "TOTAL: "+STRSE SC à 
TET4TF 
FLOT 15,È 
FLOT : 
HIFI T 
FLOT 
GOTO SE 











FLÜT 1.4 


"TOTAL 






su le T1 ge 1 


ORIC POUR TOUS 


CASSE BRIQUES 


e Une balle se déplace entre trois murs. Elle détruit des briques dans le mur de droite. 
e Le joueur doit faire rebondir la balle avec une raquette qu'il contrôle avec 
les flèches T |. Si le joueur rate la balle, le score est affiché (nombres de briques 


détruites.) 


Version 1: 
La balle détruit toutes les briques sur son passage. 





| ] 


RAQUETTE - 


Œ 








7 —— BRIQUES 








Version 2: 
La balle ne détruit qu’une brique puis rebondit. 
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Casse briques n° 1 









HO 


1: 


ir 
Cu EN ii 


5 ie D GG JDN GR Um RME 


Ne Gi Qt OÙ JT B 


ù 
Len) 


Fer 
Ê 


Li 


Ti LA 5 


D ETS AU EU 


D 4 OT D 


LHIE ES 


:RENM Faduette 
RL IT: FLOT #F 





“R+2, 17 


F 


FLAT ; 





Hesse: ATeYE REN Ancienne Fogsition 
MES EH U EVEREST RENM Houvelle Fosition 
IF #Be15 THEH ES SEHAMETNTE RMC 1 CEE 


D D GA D Gi oo 9 


IF “#B=:#2 THEH AY=Y4 BE TE TY : GOTO 156 
IF VE Y1+1 THEN ‘=: GOTO 168 :REM Reb cotes 
236 IF “Es Y2 THEH YVe-V: GOT 164 


lien nmmmemnermnmm if 





245 : REM Reb raquette 


Lo IF KESAR+1 THEM IF YES%YR THEN IF YEÉSYR4S THEM ue 









SCRHCAK, AY )=19 THEN SC=50+1 
PLOT ANRT: 16 (REM EfF balle 
1F SCRHCHE, V=13 THEN EC=Ec+1 
ñ FLOT ME, YE, 18 
IF SCRMÉNE+L ,VED<18 THEM PLOT HE+1, VE, 16: GCeGc+1 


IF SES THEN PLOT 24, 16, SCORE : HETRSC EC: MATT 






Fi 


3 THEN YRevR+1 :PLOT HR, YR-1, 





IF VE 
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REN none mme ane Ale memes 


NE Maquette meme 


#1+1 THEN YR=YR-1:PLOT HR YR4S, 


SA 


16: 


LE 


: GÜTO 154 


SC: GOTO 


FLOT #R, TR 


:FLOT #FR, TR 


Casse briques n° 2 


14 REM CHASSE BRIQUES HUE 
15 FEBAE CHEGEE 43 










FÜF  TÜ KE 1: BLOT Ma Ts IST HEËT # 
HET 


REM—— Initialisatiqns once 


MERE : Le LHTE RH 1 ELA + 

VE LE 

15 REM KRaduette 

PLOT SR Rs LP PLOT GR RE LP: PLOT GR TRE, 1F 


EE ST DA TS 
Az : HYEYE REM Anciegrneg Fogsition 


ABSAEtAM TESTER TY EN Houvelle Position 


HOUSSE 


260 

219 IF ABzrke THEH ve-yis : 'es En GOT 184 

224 IF YB<Y1+1 THEH Yyazw': GOT 180 REM Feb cotes 

236 IF YB=:"2 THEH Ye: GOTO 154 

24@ : 

245 : REM Feb rañuette 

250 IF “E£AR+1 THEN IF YE=SYR THEN IF YESVRAS THEM bete: COTO 1814 
255 : 

257 IF er THEH SCeSC+1 

264 PLAT H#,AY,16 RE EFF balle 

268 IF SCRNC ME, VE =19 THEH SCzSC+l 

263 : 

274 PLOT #6,%6,18 é 

272 IFSCRHÉAB+1, BUS LSTHEN PLOT ABLE, LÉ Me: PLOTHE, YE, 16: SCe5c 
ML nr 159 

280 IF Abies THEH PLOT 24,16, SCORE : MASTERS SC MAIT 344: SCe@: GOT 
24 

299 REM ---———e me me mnnne De A ene ne FAURE Te une ou ne nu me ne 

344 #=PEEKS#EBS SCIE 256 THEH 354 

345 : 

B14 IF#=189 THEH IF YREVE-S THEM Revel: PLOT #6, Re 1. 16: PLOT RTE 
+2,17 

3EG IFéelé THEN IF YRTi+1 THEH Rae 1: PLOT GR RS, 16: PLOT RCE 





24 GOTO 1664 
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Tapisserie 


15 FEM TAFISSERTE 


32 FEM Un Point se deFlace sur l'écran 
23 KENM en laissant une trace de couleur 
24 FEM la couleur Change à chague rebond 
25 REM 

34 LÉ ee 

MEN bornes 
REN bornes : 


















IF “PER : HPHHH-1 THEN Views C 
IF YPÉVE+L OR YP2TH-1 THEN Vie: C= 


C DD MU LE GS EF 
DURS mm 


x 
Ex 


PLOT KP, YF, LE+C 


Fifi pa pee pe pe pe Lt a doi di 


RE: 





AREA SE ANNE SES ETES 
238 GOTO 1F4 
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Explosion 


14 REM EX#PLOSTOH 


E vVErs Une cible, 
in la cible: 
& dans + directions, 










TIRS- CHEGE LE 
4 LORESG 
M cible 


VC: PLOT ACC, St: PLOT D, C1, 64 
— deplacement tir 








D'THEN FLOTAC, VC 16: PLOT MO, VO-1,16EXPLODE :GOTO 10 


D'REMRESSSeSS ss SSssnsss exFlosion 

ä FÜR He=i TO 3  STEF 

4 5 PLOT K+Hi 4H, 16: PLÛT + 

5 PLÜT + M, 1: PLÛT 4H, 

PLÜT X-H, 4H, 13: FLOT # i 
FLOT Hd, 26: PLOT HH4E, V-N42, 16 

394 HEXT H 

314 HeH-E 

324 FLOT #+H, 4H, 16: PLOT #+H HN, 16 

@ PLÔT #-H,Y+H; 16: FLOT KM, Ÿ-H, 16 

à 





54 | MALT 196: GOTO 4 
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Sapins 










:REM 15 &3p: 
SE Te +RHDE 1 MEL 


RE Meuse nee 
FÜR Hal ro EI 
FÜR Teil TI Ét. 

ET HOI/E, VI. 1 


D im 









HUE 


ee tit QD 


sk] 





:L'OFAU EH, 


154] oRIcC POUR TOUS 


SIMULATEUR LOGO 


e Nous reprenons le simulateur logo présenté dans ‘ORIC 1 POUR TOUS’. 
Nous lui avons ajouté quelques fonctions. 


DIS/ X : Division de la distance courante par X. 

DIX X : Multiplication de la distance courante par X. 
CENTRE : Positionne le point de départ. 

ENCRE X : La couleur d'écriture devient celle spécifiée (1-7) 


Exemple N° 1: 
Tracé des carrés centrés avec rotation. 





REPETE 4 
LEVE dec 
AVANCE 20 Dans | 
ROTATION 90 centrés Départ 
AVANCE 20 
ROTATION 90 
DISTANCE 40 Caré 1 
CARRE 1 Fonction 
CENTRE ie 
ROTATION 22.5 
ENCORE 


e Afin d'obtenir des carrés centrés, nous devons positionner les carrés avec : 





AVANCE 20 
ROTATION 90 
AVANCE 20 
ROTATION 90 











e Pour revenir au centre, nous avons créé une fonction ‘centre’. Celle-ci ne modifie pas 
l’angle en cours. 
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Exemple N° 2: 


Tracé d'étoiles sur un cercle 


REPETE 8 
LEVE 
ROTATION 45 
AVANCE 50 
DISTANCE 15 [rs 
ETOILE 
LEVE 
AVANCE — 50 

ENCORE 


Exemple N° 3: 


Carrés emboîtés 


DISTANCE 30 
REPETE 4 
CARRE 1 
DIS/ 12 
ENCORE 


Exemple N° 4: 


Carrés centres 


DISTANCE 30 

REPETE 4 
LEVE 
DIS/ 2 
AVANCE 
ROTATION 90 
AVANCE 
ROTATION 90 
DISK 2 
CARRE 1 
CENTRE 
ROTATION 180 
DISK 1.2 

ENCORE 
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————, 


oo ——- 


Entrée des commandes avec INPUT : 


e L'instruction 550 READX$ peut être remplacée par : INPUT ‘commande ?'; X$ 
e Les commandes ne sont exécutées qu'après la frappe de “XK. 


Exemple : 

Commande ? AVANCE 20% 
ROTATION 20% 
AVANCE 307% 


XF 


AMELIORATION POSSIBLE: 


Nous pourrions définir des variables : 


AVANCE X/2 


Il faudrait pour cela créer une table des variables et de leurs valeurs. 


VRS( ) 


< 
F 


MEIEI 
an | 
OISIC 
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Logobis 


158 











19 FEN LOGOBIS SIMULATEUR LOGO eme 
En 





ae Lite 


d'a +. CRETE 


RES - definition étoile 
A4 DATA 

14 GATA E 

15 CATA REFETE 4 





24 DATA AVANCE 

25 OATA  EUTATIOH 166 

24 CATA AVANCE 

DATA ECTATIUH F5 

CATA EHCÛRE 

CATA FIHI 

REM---eeesseseeces definition Carre 

DATA DEFI CARRE 

CATA ERISSE 

DATA FEFETE 4 

CATA AVANCE 

CATA  RÜTATIOH 35 

CATA EHCOFRE 

CATA FIHI 

PRET me men me eu trace Carres Centres ques Pota tion 

DATA ENTRE 5 

DATA FEFETE 4 

CATA LEVE 

DATA AVANCE 29 

3 DATA  ROTATIOUH 95 

DATA AVANCE ZA 

CATA  ROTATIOH 935 

DATA  CISTANCE 44 

7 DATA CARRE 

CATA CENTRE 

SZ DATA ROTATION 1 
3 DATA FOTATIUH € 

DATA EHCQRE 


ia 
La 





RU MM ER Bi 
D'un in 


immense nmnme pe des LU 
Lx = . 
Si 


3 Pa 
2 
D DR ERREURS 


Pom i 


Fi Q 
= 
La 


CATA CENTRE 

12 REMese eee mem Lace gbtuiles gur Un cercle 
1 DATA REFETE 5 

CATA LEYE 

à GATA ROTATION 45 
7 DATA  AYANCE 54 
5 DATR  DISTANCE 15 

GATA  ETOUILE 

CATA  LEVE 

GATA AVANCE -5Sf 

DATA EHCÛRE 


ORIC POUR TOUS 










1 

c] 

E 
m4 
pets] 
36 
7 
: 


ù Le 
























4 DATA 
CATA 
CATA 
1 DATA 
DATA 
+44 DATA 
46 DATA 

1 CAT 
FE 
3 OATA 
C'ATA 

4 CATA 
45 CATA 
SA DATA 
4 CATF 
+F4 CATA 


4 CATA 
in 
' DATA 
DATA 















NUE 
im Gino miumr 


Ti Ti Ti 





TT 


IF LEFT#C 





LEWE 
FCTATIOH SE 
AVAHCE FH 
CISTANCE GA 
REPETE Gi 


x 









DT TANCE 15 
TER 3 





ROTAT LOH GE 
AVANCE 
EOTATIOH 36 
CISX 
CARRE 
CENTRE 

RUTAT TO LEA 


4 GATA HOUR 





#$ : FRINT #$ 


EU OTHEH HC&T GOTO FA 
LT S 


=F$ikK. A2 THEN GÜSUE 1330 


MAL D NERX | 
TeT+l 


GOTO 554 


- Lecture des commandes 


ie SDEFTU THEN GÜSLUE LES 


CD à —— 


RENTE 


GTI SSA 


159 
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Fainbeur dé Liane courante 


at 4 cf 
THEH GOT 5 
“ THEH GÜTO 

* THEH GOS 
THEH G 
THEH 

THEH GO 





TF 
IF 
1F 
IF Cé= 16 
IF 2" THEN GOSUE 1546 
IF Cs="LEVE" THEH LY=i 

IF Cé="EAIS" THEN Lv=ÿ 

IF Case DENT THEH fe 1 0G ve 
IF Cé="ENCR" THEN GOSUE 1540 
F IF Cé="DlS#£" THEH GOSUE 1694 
3 PLePL+i:IF PLSHC THEH END 

ag GOTO 630 








{ff 






FOR Pi TO LEHCLGS 5 
4 IF MICHEL, F.1iue" " THEH RETUEH 
A HEAT F 

14 Fe : FETUEH 

GO REM ce ace cn me meme me ee me POP Rte meme ne 

ÉEM PR cPE pile FFÉ contient no line aPres REFETE 
A KE HEC contenant ob dé boucles 

334 GÜSUE 866 

SA PRSPRXL:RPCPE spl HE PE eVALCRTCNTSE LGS, LEMC LOS dep 

: FLePFL+li : GOTO 694 

FE meme mens GMCQRE mens 

4 MES FR SHEC PR el TR MES PE A THEH FLeRPé PE GOT ES 
A FR a L:FlLeFl+i: GOT 690 










CG LD MO Out 
ER RERX EL 


m0 0 né one 00 one te mes one [a Le] l DS mm mme ea a a a oe 
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Re 


RAR: 
RARE ERA ER: EL ELT 


ARRET ELA E LUE EX 


Ti M CA CN A CN CR CA RER NE & 


NE EUR L PE RRIRERSS 


Li 


M 


1 Dx 
2 IF Dé=@ AND D 


27 PRINT "ERR: "30, 8, LGS: MAIT 39@:RETURH 





REM eee ennemies Tracé droite 


GOSUE BE Ë 
IF Fe THEH 1116 


i VeWALE RIGHTS LOS, LEHE LG -POCSIF Meg THEH 11184 


TeWALERTGNHTS#E LS, LEHE LG pi 

TEST EC: CDTI ET #CNEL, 5 

G THEH FRIHT "ERF:"GLGS:UAIT SG: RETLEH 
IF Liel THEN Bee Dé EE 0: ÉETURH 






15 IF #“#9:4 THEH TA HAE 3S THEH IF YG4g THEM IF YHSISS THEN 1125 
3 PRINT "ÉRR "38 V6, LOS: MAIT SGA: RETUEH 


#6, A, 
Al V4: Ge EC 
«423 THEH IF % 





LESS THEH IF YA2@ THEH IF YSS135 THEM 115 


ER] 
Lex] 





DRAM Ci, Ci, 1 


af RETURH 
d'IREM, SES rsese ss ss Lricrement distante ee 


GÜOSUE 64 
CISTE= DIST+ HMALERIGHTS#E LOGS, LEHE LOGS ep 
RETLEH 


dE PEN mme mmmemrs Stockage Fonction dans PC 


HF=HF 41 


268 FSCHF: G SR IGHTEC HS, LEMC HS 1-5 3 


FÜR Fæl T0 ZE 

FEAC F#èHF. F5 

IF FHCHF, FoetFIHI" THEH RETLEH 

HET F 

STÛF 

REMT meenece eee ne eee Tong on FO Lee 
Fzl 


IF F&E,P3="FIHI" THEH RETUEH 


COgi I A=F£CE F0 
A Fepæ+l:Tel+i: GOT 1556 


RE Din is À On 

GOSUE S64:1F F=û THEN FETURH 

WaeVALE RIGHTS LGS, LEME LOS F5 
We sE THEN DISTeDIET-W 










FETLF 
FEM-— 
GÜSUE 26 

V=VALC RIGHTS LGS , LEE LG ep 

IF WE AND CES THEH IHE 

FETLIFH 

REM eue ae on me un HultiFlication 
GÛÜSUE SÉG:IF Peï THEH RETUEH 

MeWALE RIGHTS LGS, LENC LS ep 

IF M4 THEN CISTSCISTE#Y 


memes ENCRE 





4 RETURH 
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“Oric-ophiles” réjouissez-vous, voici “52 programmes” (nouvelle édition de l'ouvrage 
“30 programmes”). 


Faisant suite à l'ouvrage “Oric-1 pour tous” ce recueil s'articule sur quatre thèmes : 
e EXERCICES, utilisant les fonctions particulières de l'Oric-1 telles que KEY, PLOT, 
FILL. 


e ÉDUCATION, proposant des idées de programmes de géographie, orthographe, 
anglais, dessins. 


e GESTION, développant quelques exemples du type annuaire téléphonique, 
fichiers d’ adresses, courrier paramétré.. 


e JEUX, tous les grands classiques, Allumettes, Le compte est bon, Biorythmes, Jeu 
de la vie, Marienbad, et beaucoup d’autres, y sont traités avec originalité. 


Tous ces programmes, largement commentés et illustrés vous permettront 
d'approfondir vos connaissances en Basic, et vous serviront de tremplin pour de 


nouvelles créations. 
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